Algoritma ve Programlama Tamamı Çözümlü Soru Bankası 


1. İki sayının toplamını veren programın algoritma ve akış diyagramını 
oluşturunuz. 

Algoritma: Akış Diyagramı: 


1. Başla 

2. a,b,c değişkenlerini al 

3. b,c değerlerini gir 

4. a=b+c işlemini yap 

5. Yazdır a 

6. Bitir 
Açıklama: 

Bu basit ve temel bir sorudur. Toplama 
işlemi için 3 değişken alınmaktadır. 
Alınan değişkenler toplanarak son 
değişken içine atılmaktadır. Bu soruda 
2 değişken de kullanabilirdik. (a=a+b) 
Böylece program bilgisayar 
hafızasından daha az kaynakla aynı iş 
yapılacaktır. Bu çözümü de deneyiniz. 



Ekran Çıktısı: 


ssdmg r- mm 


1 .Sayı: 

2. S ayı: 

Sonuç: 
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C Kodu: 

C# Kodu: 

#include <stdio.h> 

using System; 

#include <stdlib.h> 

using System.Collections.Generic; 

int main(int argc, char *argv[]) 

using System.Linq; 

{ 

using System.Text; 

int a,b,c; 

printf(” 1 .sayiyi giriniz: ”); 
scanfT%d",&b); 
priııtf("\n2.sayiyi giriniz:"); 

namespace dmg 
{ 

class Program 

I 

static void Main(string(] args) 

scanf("%d",&c); 

{ 

a=b+c; 

int a, b, c; 

printfl["\nToplam : %d\n\n" ,a); 

Console.Write("l.Sayıyı Giriniz: 

system("PAUSE"); 
retum 0; 

} 

b = Convert.ToInt32(Console.RcadLine()); 
Console.Write("2.Sayıyı Giriniz: ”); 
c = Convert.Tolnt32(Console.Readl.ine()); 
a = b + c; 


Console.Write("Toplam = " + a); 

Console. ReadLineO; 
î 

> 

i- 

Vb.Net Kodu: 


Public Class Forml 


Private Sub Buttonl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 

Handles Buttonl.Click 


TextBox3.Text = CInt(TextBoxl.Text.Trim) + Clnt(TextBox2.Text.Trim) 

End Sub 

End Class 


Java Kodu: 


import java.util.Scanner; 
public class Sorul { 


public static void main(String[] args){ 

int a,b,c; 


Scanner oku=new Scanner(System.in); 

System.out.printf’l.Sayıyı Giriniz="); 

b=oku.next!nt(); 


System.out.print("2.Sayıyı Giriniz="); 

c=oku.nextInt(); 

a=b+c; 


System.oul.println('Toplam="+a); 

} 
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2. Kullanıcının girdiği iki sayının karelerinin toplamını görüntüleyen 
programın algoritma ve akış diyagramını oluşturunuz. 


Algoritma: 

1. Başla 

2. sayil,sayi2,top değişkenlerini al 

3. sayıl,sayi2 değerlerini gir 

4. top=(say i 1 A 2)+(sayİ2 A 2) işlemini 
yap 

5. Yazdır top 
ö.Bitir 

Açıklama: 

Bu soru algoritma açısından önemli 
olduğu kadar programlama dili 

komutları açısından da önemlidir. 
Soruda iki sayı kullanıcıdan 
istenmektedir. Bunların kareleri 
toplamı top değişkenin içine atılıyor. 
Burada bilinmesi gereken A operatörü 
programlama dillerinin bazılarında üs 
anlamına gelmektedir. Burada 
algoritma çözüyor olduğumuzu da göz 
önüne alarak sayının karesinin de 
yazılabileceğini ve günlük dil 

kullanılabileceğini unutmamalıyız. 
Ancak daha kısa olması açısından biz 
üs işaretini ( A ) kullanıyoruz. Bazı 

programlama dillerinde üs alma 
fonksiyonları vardır. Bunun için 

gerekli kütüphaneyi (ör: math.h) 
dosyasını programınıza eklemeniz 
gerekir. 

Örnek: pow(3,2) ->9 dur. 


Ekran Çıktısı: 



Akış Diyagramı: 
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C Kodu: 

Ctt Kodu: 

#include <stdio.h> 

using System; 

#include <stdlib.h> 

namespace dmg 

int main(int argc, char *argv[]) 

{ 

{ 

class Program 

int şayi I,sayi2,top=0; 

{ 

scanf("%d%d",&sayi 1 ,&sayi2); 

static void Main(string(] args) 

top=sayi I *sayi 1 + sayi2*sayi2; 

{ 

printf("%d",top); 

int sayil, sayi2; 

system("PAUSE"); 

int toplam = 0; 

retum 0; 

ConsoIe.Write("I.Sayıyı Giriniz:"); 

} 

şayi 1 = Convert.Tolnt32(Console.ReadLine()); 
Console.Write("2.Sayıyı Giriniz: "); 
sayi2 = Convert.ToInt32(Console.ReadLine()); 
toplam = (şayi 1 * şayi 1) + (sayi2 * sayi2); 
Console.Write( "Toplam: " + toplam); 


Consolc. ReadLi ne(); 

> 

> 

> 

Vb.Net Kodu: 


Public Uass Form I 


P.ivate Sub Buttonl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 

Handles Buttonl.Click 


Dim sayil As Integer = CInt(TextBoxl.Text.TrimO) 

Dim sayi2 As Integer = CInt(TextBox2.Text.Trim()) 

Dim sonuç As Integer = şayi 1 
TextBox3.Text = sonuç 

şayi 1 + sayi2 * sayi2 

End Sub 

End Class 


•lava Kodu: 


import java.util.Scanner; 
public class Soru2{ 


public static void main(String[] args){ 

int şayi l,sayi2,toplam=0; 


Scanner oku=new Scanner(System.in); 

System.out.print("l.Sayıyı Giriniz="); 

sayil=oku.nextInt(); 


System.out.print("2.Sayıyı Giriniz="); 

sayi2=oku.nextInt(); 


toplam=(sayi 1 *sayi 1 +sayi2*sayi2); 

System.out.println("Kareler Toplamı="+toplam); 

} 

> 
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3. l'den 10'a kadar olan sayılarının küplerinin toplamını bulan 
programın algoritma ve akış diyagramını oluşturunuz. 


Algoritma: 

1. Başla 

2. sayı= 1 ,toplam=0 değişkenlerini al 

3. topIam=toplam+(sayı A 3) 
işlemini yap 

4. Eğer sayı=10 ise devam et, 
değilse sayıyı 1 arttır 3'e git 

5. Yazdır toplam 
ö.Bitir 

Açıklama: 

İlk defa bu soruda döngü ve sayaç 
kullanıyoruz. Eğer çözeceğiniz soru 

1_10 arası gibi bir ifade ile 

başlıyorsa bu programdaki işlemler 
sayaç 10 olana kadar işlem 
döndürülecek anlamına gelmektedir. 
Yani döngü kurulacaktır. Bu soruda 
toplam=toplam+(sayi A 3) işlemi 10 
defa yapılacak, sayaç olarak da sayı 
değişkeni seçilecektir. Bu soruda sayı 
değişkeni seçilmiştir fakat farklı 
sorularda farklı sayaç değerleri 
seçilebilir. Özellikle i ya da j 
karakterleri çok tercih edilir. Döngü 
işlemini yapan kısım, 4. adımdır. 
Şartlar uymadığında yani sayi=10 
olmadığı sürece 3. adıma dallanma 
yapılmaktır. Bu durum da programda 
bir döngü oluşmaktadır. İleriki 
sorularda akış diyagramını 
oluştururken döngü şeklini de 
kullanacağız. 


Ekran Çıktısı: 



Akış Diyagramı: 
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4. Doğum tarihi girilen kişinin yaşını hesaplayan programın algoritma 
ve akış diyagramını oluşturunuz. 


Algoritma: 

1. Başla 

2. dyili, yil, yas değişkenlerini al 

3. dyili, yil değerlerini gir 

4. yas=yil-dyili işlemini yap 

5. Yazdır yas 

6. Bitir 

Açıklama: 

Başlangıç düzey için kitaba konulmuş 
bir soru. Bu soruda da değişken 
kavramını açıklayalım. Değişken 
olarak bu soruda dyili, yil, yas olmak 
üzere üç değişken alınmıştır. 
Değişkenler daha öncede anlatıldığı 
gibi içinde tipine göre değer taşıyan ve 
bellekte yer tutan yapılardır, yil 
değişkeni sistem tarihi olarak da 
alınabilir. Sistem tarihinin otomatik 
alınmasını kodlara bakarak 

anlayabilirsiniz. O Bu ekran çıktısı 
Vb.Net koduna aittir. Sistem tarihi 
varsayılan gelmektedir. Akış 
diyagramındaki gibi dışarıdan 
sistem tarihi girişi yoktur. 


Akış Diyagramı: 




Ekran Çıktısı: 
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C Kodu: 

C# Kodu: 

flinclude <stdio.h> 

#include <stdlib.h> 

int main(int argc, char *argv[]) 

{ 

int dyili,yil,yas; 

using System; 
namespace dmg 
{ 

class Program 
{ 

static void Main(string[] args) 

printf("Bugunun yilini giriniz: "); 

{ 

scanfT%d",&yil); 

intdyili, yas; 

printf("Dogum yilini giriniz: ”); 

DateTime yil; 

scanf|"%d",&dyili); 

yil = DateTime.Now; 

yas=yil-dyili; 

Console.Writc("Dogum yılını giriniz: "); 

printli("Yasiniz: %d " ,yas); 

dyili = Convert.ToInt32(Console.ReadLine()); 

system("PAUSE"); 

yas = yil.Date.Year - dyili; 

retum 0; 

Console.Write("Yaş: " + yas); 

} 

ConsoIe.ReadLine(); 

} 

} 

} 

Vb.Net Kodıı: 


Public Class FormI 


Private Sub Buttonl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 

Handles Buttonl.Click 


Dim yil As Integer = Clnt(TextBoxI.Text.Trim()) 

Dim syil As Integer = Today.Year 

Dim sonuç As Integer = syil - yil 

TextBox2.Text = sonuc.ToString 

F.nd Sub 

End Class 


•lava Kodu: 


import java.util.Scanner; 
pııblic class Soru4{ 


public static void main(String[] args){ 

int dyili.yil.yas; 


Scanner oku=new Scanner(System.in); 

System.out.print("Bugüııün yılım giriniz(YYYY):"); 

yil=oku.nextInt(); 


System.out.print(”Doğum yılını giriniz(YYYY):"); 

dyili=oku.nextInt(); 

yas=yil-dyili; 


System.out.print("Yaşınız="+yas); 

> 
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5. Girilen sayının faktöriyelini hesaplayan programın algoritma ve 
akış diyagramını oluşturunuz. 


Algoritma: 

1. Başla 

2. şayi, fak=l değişkenlerini al 

3. say i değerini gir 

4. fak=fak*sayi işlemini yap 

5. sayi değişkenini 1 azalt 

6. Eğer sayi=l ise devam et, 
değilse 4’e git 

7. Yazdır fak 

8. Bitir 


Ekran Çıktısı: 



Akış Diyagramı: 


Açıklama: 

Faktöriyel sorusu döngüleri anlatmak 
için en çok kullanılan örneklerdendir. 
Burada döngü kavramı yine karşımıza 
çıkmıştır. Program sayi=l olana kadar 
devamlı dallanacak, şartımız doğru 
olduğunda programı bitirecektir. 
Mesela C Programlama dili For 
döngüsüne çok uygundur. Bu soruda 
kullandığımız yeni operatör ve 
formülleri tanıyalım. 

(= =) -> Eşit mi ? 

(--) Bir eksiltme 
Faktöriyel Örnek 
5! = 5..4.3.2.1 =120 
Bu soru tüm kitap ve dokümanlarda 
bulunmaktadır ve bulunmalıdır. 
Fak=Fak*sayi formülü mutlaka 
bilinmelidir. 
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C Kodu: 

C# Kodu: 

#include <stdio.h> 

#include <stdlib.h> 

using System; 
namespace dmg 
{ 

class Program 

int main(int argc, char 

*argv[]) 

{ 

{ 

static void Main(stringO args) 

int i,sayi,fak=l; 

{ 

! printft "bir şayi giriniz : ”); 

int i, şayi; 

scanfl["%d' , ,&sayi); 

int fak = 1; 

for(i=sayi;i>l;i-) 

Console.Write("Sayıyı giriniz:"); 

fak=fak*i; 

şayi = Convert.Tolnt32(Console.ReadLine()); 

printfV'Faktoriyel : 

for (i = şayi; i > 1; i—) 

%d",fak); 

{ 

system("PAUSE"); 

fak = fak * i; 

retum 0; 

} 

} 

Console.Write("Faktoriyel:" + fak); 


Console.ReadLineO; 

} 

} 

} 

Vb.Net Kodu: 


Public Class Form! 


Private Sub Buttonl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 

Flandles Buttonl.Click 


Dim i As Integer = Clnt(TextBoxl.Text.Trim()) 

Dim toplam As Integer = 1 
For i = i To 1 Step -1 
toplam = toplam * i 

Next 


TextBox2.Text = toplam.ToString 

End Sub 


End Class 


Java Kodu: 


import java.util.Scanner; 
public class Soru5{ 


public static void main(String[] args){ 

int i,sayi,fak=l; 


Scanner oku=new Scanner(System.in); 

System.out.printC'Bir sayı giriniz="); 

sayi=oku.nextInt(); 
for(i=sayi;i>l;i—) 

{ 

fak=fak*i; 


i 

System. out.print("Faktöryel= M +fak); 

} 

i 
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6. Pozitif sayılarda çarpma işlemini toplama kullanarak bulan 
programın algoritma ve akış diyagramını oluşturunuz. 


Algoritma: 

1. Başla 

2. sayil,sayi2,sayac=0 değişkenlerini al 

3. sayil, sayi2 değerlerini gir 

4. sayac=sayac+sayi 1 işlemini yap 

5. Eğer sayi2=l ise devam et, 
değilse sayi2’yi 1 azalt ve 4’e git 

6. Yazdır sayaç 

7. Bitir 
Açıklama: 

Bu soruda çarpma işlemi kullanılmadan 
çarpma işlemi toplama ile 
yapılmaktadır. Yapılması gereken, iki 
sayı girdiğimizde ikisinden birini 
döngü için kullanmaktır. Yani sayi2=3 
ise, program 3 defa dönecek anlamına 
gelir. Döngü, her seferinde sayaca 
sayıl eklenir (sayac=sayac+sayil). 
Başlangıç değeri sayac=0 vermemizin 
amacı da 3. adımda sayac=sayac+sayı 
işleminde sayaç değerinin belli olması 
gerektiğidir. Yoksa derleyici program 
bu ifadenin ilk değerini yorumlayamaz 
ve hata verecektir. 


Ekran Çıktısı: 



Akış Diyagramı: 
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C Kodu: 

Ot Kodu: 

#include <stdio.h> 

#include <stdlib.h> 

int main(int argc, char *argv[]) 

{ 

using System; 
ııamespace dmg 
{ 

class Program 

I 

1 t 

static void Main(string[] args) 

int şayi 1 ,sayi2,sayac=0; 

t 

printtV'İlk sayıyı giriniz: "); ! 

int sayil, sayi2; 

scanf(”%d",&sayi 1); 

int sayaç = 0; 

printfV’İkinci sayıyı giriniz:"); 

Console.Write("l.Sayıyı giriniz = "); 

scanfT'%d",&sayi2); 

sayil = Convert.ToInt32(Console.RcadLine()); 

while(sayi2>0) 

Console.Write("2.Sayıyı giriniz = "); 

{ 

sayi2 = Convert.ToInt32(Console.ReadLine()); 

sayac=sayac+sayi I; 

while (sayi2 > 0) 

sayi2 —; 

{ 

} 

sayaç = sayaç + şayi 1; 

printfV'sonuç: %d",sayac); 

sayi2 -= 1; 

system("PAUSE"); 

} 

retum 0; 

Console.Write("Sonuç = " + sayaç); 

} 

Console.ReadLine(); 

> 

} 

} 

VB. Net Kodu: 


Public Class Forml 


Private Sub Buttoni_Click(sender As System.Object. e As System. EventArgs) Haııdles 

Buttonl.Click 


Dim sayi2 As Integer 


Dim sayaç = 0, şayi 1 As Integer 

sayil = TextBoxl.Text 
sayi2 = TextBox2.Text 

While (sayi2 > 0) 


sayaç = sayaç + şayi 1 
sayi2 = sayi2 - 1 


End While 

TextBox3.Text = sayaç 


End Sub 

End Class 


Java Kodu: 


import java.util.Scanner; 
public class Soru6{ 


public static void main(String[] args){ 

int şayi 1 ,sayi2,carp=0; 


Scanııer oku=new Scanner(System.in); 

System.out.print(" 1 .sayıyı giriniz^' 1 ); 

sayil=oku.nextInt(); 


System.out.print("2.sayıyı giriniz="); 

sayi2=oku.nextInt(); 
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7. Pozitif sayılarda bölme işlemini çıkarma kullanarak yapan 
programın algoritma ve akış diyagramını oluşturunuz. 


Algoritma: 

1. Başla 

2. bölünen, bolen,sayac=0 
değişkenlerini al 

3. bölünen,bölen gir 

4. bolunen=bolunen-bolen işlemini yap 

5. Eğer bolunen<bolen ise 6’ya 
git,değilse sayac++ , 4’e git 
ö.Yazdır sayaç 

7.Bitir 

Açıklama: 

Bu soruda bölme işlemi kullanmayıp, 
sadece çıkarma yaparak bölme işlemi 
yapılmaktadır. Böliinen’den bölen’i 
çıkartıp, bölünen bölenden ufak 
olduğunda (bolunen<bolen) sayacı 
yazdırmak mantığıyla soru 
çözülecektir. 

5/2=2 Normal sonuç 

5-2=3 yandaki işlem bölünen<bölen 

olana kadar tekrar eder. 


Akış Diyagramı: 



/ sayaç 


CÜD 


Ekran Çıktısı: 
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C Kodu: 

#include <stdio.h> 

#include <stdlib.h> 

int main(int argc, char *argv[]) 

< 

int bolunen,bolen,sayac=0; 
printfV'Bolunecek sayıyı giriniz : "): 
scanfi[''%d",&bolunen); 
printfT'Bölen sayıyı giriniz : ”); 
scanfT'%d”,&bolen); 
for(sayac= 1 ;bolunen>bolen;sayac++) 
bolunen=bolunen-bolen; 
printl{''BöIme işleminin sonucu : 
%d",sayac); 
system(”PAUSE"); 
retum 0; 

} 

C U Kodu: 

using System; 
namespace dmg 
{ 

class Program 
{ 

static void Main(string[] args) 

{ 

int bölünen, bölen; 
int i = 0; 

Console.Write("Bölûnecek sayıyı giriniz = "); 
bölünen = Convert.Tolnt32(Console.ReadLine()); 
Console.Write("Bölen sayıyı giriniz = ”); 
bölen = Convert.ToInt32(Console.ReadLine()); 
for (i = 1; bölünen > bölen; i++) 

{ 

bölünen = bölünen - bölen; 

> 

Console.Write("Bölme işleminin sonucu = " + i); 
Console.ReadLine(); 

} 

} 

} 

Vb.Nct Kodu: 

Public Class Forml 

Private Sub Buttonl_Click(sender As S 
Buttonl.Click 

Dim bölünen, bölen, soııuc As Inlege 
sonuç = 0 

bölünen = CInt(TextBoxl.Text) 
bölen = Cint(TextBox2.Text) 

Do Whiie bölünen >= bölen 
bölünen = bölünen - bölen 
sonuç = sonuç + 1 

Loop 

TextBox3.Text = sonuç 

End Sub 

End Class 

ystem.Objcct, e As System.EventArgs) Handles 

Java Kodu: 

import java.util.Scanner; 
public class Soru7 { 

public static void main(String[] args){ 
int bolunen,bolen,i=0; 

Scanner oku=new Scanner(System.in); 

System.out.print("Bölünecek sayıyı giriniz="); 
bolunen=oku.nextInt(); 

System.out.print("Bölecek sayıyı giriniz="); 

bolen=oku.nextlnt(); 

while(bolunen>bolen) 

{ 


69 















Algoritma ve Programlama Tamamı Çözümlü Soru Bankası 



70 





Algoritma ve Programlama Tamamı Çözümlü Soru Bankası 


8. Pozitif girilen sayının istenilen sayıya göre mod işlemini yaptıran 
programın algoritma ve akış diyagramını oluşturunuz. 


Algoritma: 

1. Basla 

2. sayil,sayi2 değişkenlerini al 

3. şayi 1, sayi2 gir 

4. Eğer sayil>=sayi2 ise sayil=sayil- 
sayi2 işlemini yap ve 4’e git, değilse 
devam et 

5. Yazdır sayil 

6. Bitir 

Açıklama: 

Programlama dili ile kod 
yazdığımızda Mod fonksiyonunu 
kullanırız. Fakat algoritma 
alıştırmalarında öğrencilerin daha 
geniş düşünebilmelerini sağlamak 
için bu soruda mod işlemini mod 
fonksiyonu kullanılmadan nasıl 
yapılacağı gösterilmektedir. 

7 Mod 3 = 1 7 % 3 = 1 

% işareti (Mod) içinde kullanılabilir. 
İki sayı girilmiştir. İlk sayı, ikinci 
sayıdan büyük ve eşit olduğu sürece 
programımız döngü içinde olur, sayil 
sayi2’den küçük olduğunda 
(sayil<sayi2) sonucumuz sayıl 
olarak karşımıza çıkacaktır. 



Ekran Çıktısı: 


Akış Diyagramı: 



< sayı ; 

\_ J 


CED 
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C Kodu: 

C# Kodu: 

#include <stdio.h> 

using System; 

#include <stdlib.h> 

namespace dmg 

int main(int argc, char *argv[]) 

{ 

{ 

class Program 

int şayi 1 ,sayi2; 

{ 

printfT" 1 .sayiyi giriniz: "); 

static void Main(string(] args) 

scanft"%d",&sayi 1); 

{ 

printf("2.sayiyi giriniz: "); 

int şayi 1, sayi2; 

scanfT'%d",&sayi2); 

int i = 0; 

while(sayi 1 >=sayi2) 

Console.Write(”l. sayıyı giriniz = "); 

şayi 1 =sayi 1-sayi2; 

sayil = 

printfl["sonuç : %d",sayil); 

Convert.ToInt32(Console.ReadLine()); 

system("PAUSE"); 

Console.Write("2. sayıyı giriniz = "); 

retum 0; 

} 

sayi2 = 

Convert.ToInt32(Console.ReadLine()); 
while (şayi 1 >= sayi2) 

{ 

şayi 1 = şayi 1 - sayi2; 

> 

Console. Write("Sonuç = " + şayi 1); 

Console. ReadLi ne(); 

} 

} 

} 

Vb.Net Kodu: 


Public Class Forml 


Private Sub ButtonI_Click(sender As System.Object, e As System. EventArgs) Handles 

Button 1 .Click 


Dim sayil, sayi2 As Integer 
sayil = CInt(TextBoxl.Text) 
sayi2 = Clnt(TextBox2.Text) 

Do While şayi 1 >= sayi2 
şayi 1 = şayi 1 - sayi2 

Loop 

TextBox3.Text = şayi I 


End Sub 

End Class 


Java Kodu: 


import java.util.Scanner; 
public class Soru8{ 


public static void maiıı(String[] args){ 

int şayi 1 ,sayi2; 


Scanner oku=new Scanner(System.in); 

System.out.print("Bölünecek sayıyı giriniz="); 

sayil=oku.next!nt(); 


^^stem.out.printC'Bölecek sayıyı giriniz="); 
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9. Girilen pozitif sayının kaç basamaklı olduğunu söyleyen programın 
algoritma ve akış diyagramını oluşturunuz. 


Algoritma: 

1. Başla 

2. şayi, sayac=l değişkenleri al 

3. şayi değerini gir 

4. Eğer sayi<9 ise 6'ya git, 
değilse devam et 

5. sayi=sayi/10,sayac++ 4'e git 

6. Yazdır sayaç 

7. Bitir 

Açıklama: 

Bu tür sorularda yani basamak 
sorularında, sayıyı devamlı 10’a 
bölerek soruyu çözebilirsiniz. Girilen 
sayı, her defasında 10’a bölünerek, tam 
kısmı 10’dan küçük oluncaya kadar 
program bir döngü vasıtasıyla devam 
edecektir. Şartımız 4. adımda 
sağlandığında, elimizdeki sayaç bize 
sayımızın kaç basamaklı olduğunu 
göstericektir. 


Akış Diyagramı: 



/ sayaç J 

, j 

Bitir ^ 


Ekran Çıktısı: 


o- DMO 1 . ■=» i ® km&ml ' 
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C Kodu: 

C# Kodıı: 

#include <stdio.h> 

using System; 

#include <stdlib.h> 

namespace dmg 

int main(int argc, char *argv[]) 

{ 

{ 

class Program 

float şayi; 

{ 

int i=0; 

priııtf("Bir şayi giriniz \n"); 

static void Main(striııg[] args) 

{ 

scanf("%f',&sayi); 

float şayi; 

while(sayi>=9) 

int i = 1; 

{ 

Console.Write("Bir sayı giriniz = "); 

sayi=sayi/10; 

şayi = Convert.Tolnt32(Console.ReadLine()); 

i++; 

vvhile (şayi > 9) 

} 

{ 

i++; 

şayi = şayi / 10; 

printfî" Şayi %d basamakli",i); 

i++; 

system("PAUSE"); 

} 

retum 0; 

Console.Write("Sayi " + i + " basamaklı"); 

} 

Console. ReadLi neO; 

} 

} 

} 


Vb.Net Kodu: 
Public Class Forml 


Private Sub Buttonl_Click(sender As System.Object, e As System.EventArgs) Handles 
Buttonl.Click 

Dim şayi, sayaç As Integer 
sayaç = 1 

şayi = CInt(TextBoxl.Text) 

Do While şayi > 9 
şayi = şayi / 10 
sayaç = sayaç + 1 
Loop 

Label2.Text = "Sayı " & sayaç & ” basamaklıdır." 

End Sub 

■lava Kodu: 

import java.util.Scanner; 
public class Soru9{ 

public static void main(StringO args){ 
float şayi; int i=l; 

Scanner oku=new Scarmer(System.in); 

System.out.print("Bir sayı giriniz="); 

sayi*-oku.nextFloat(); 

while(sayi>9) 

{ 

sayi=sayi/10; i++; 

} 

System.out.print(”Sayi "+i+" basamaklı"); 

} 

} 
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10. Girilen 3 basamaklı bir sayının basamaklarının küpleri toplamı 
sayının kendine eşit olup olmadığını bulan programın algoritma ve 
akış diyagramını oluşturunuz. 


Algoritma: 

1. Başla 

2. x,şayi, top=0,bas değişkenlerini al 

3. şayi değişkenini gir 

4. x=sayi işlemini yap 

5. bas=sayi%10 işlemini yap 

6. top=top+(bas*bas*bas) işlemini 
yap 

7. sayi=sayi/10 işlemini yap 

8. Eğer sayi<10 ise 
top=top+(sayi A 3) ve devam et, 
değilse 5'e git 

9. Eğer (x=top) ise yazdır “eşit”, 
değilse yazdır “eşit değil” 

10. Bitir 

Açıklama: 

Bu soruda ilk önce yapmamız 
gereken basamak değerlerini 
bulmaktır. Bunun için sayıyı 
devamlı 10’a bölmeliyiz her zaman 
kullandığımız gibi % işareti bölme 
işleminde kalanı vermektedir. / 
işareti ise bölümün tam kısmını 
vermektedir. Üs alma işareti olarak 
da A işareti kullanılmaktadır. Soruda 
döngü işlemleri ve şart işlemleri ön 
plana çıkmaktadır. 

Ekran Çıktısı: 



Akış Diyagramı: 
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C Kodu: 

C# Kodu: 

#include <stdio.h> 

using System; 

#include <stdlib.h> 

namespace dnıg 

int main(iııt argc, char *argv[]) 

{ 

{ 

class Program 

int sayi,top=0,bas.x; 

{ 

printlTBir şayi giriniz \n"); 

static void Main(string[] args) 

scanfV'%d",&sayi); 

{ 
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x=sayi; 

int şayi,bas,x; 

dnz: 

int top=0; 

bas=sayi%IO; 

Console.Write("Bir sayı giriniz = "); 

top=top+bas A 3; 

şayi = Convert.Tolnt32(Console.ReadLine()); 

sayi=sayi/IO; 

x=sayi; 

if(sayi<10) 

dnz: 

sayi=sayi/10; 

bas = şayi % 10; 

else 

top = top + (bas * bas * bas); 

{ 

i f (şayi < 10) 

sayi=sayi/10; 

sayi=sayi/IO; 

goto dnz; 

else 

> 

{ 

top=top+sayi A 3; 

goto dnz; 

if(x=top) 

sayi=sayi/10; 

printf("esit"); 

> 

else 

top=top+sayi A 3; 

printfT’esit değil"); 

if (top=x) 

system(”PAUSE"); 

{ 

return 0; 

Console.WriteLine("Eşit"); 

> 

î 

else 

{ 

Console.WriteLine("Eşit değil"); 

> 

Console.ReadLine(); 

} 

} 

} 

Vb.Net Kodıı: 


Public Class Form 1 


Private Sub Buttonl_Click(sender As System.Object, e As System.EventArgs) Handles 
Buttonl.Click 

Dim şayi, top, bas, x As Integer 
şayi = CInt(TextBoxl.Text) 


x = şayi 
top = 0 


dnz: 


bas = CInt(sayi Mod 10) 
top = top + bas * bas * bas 

Ifsayi < 10 Then 
şayi =sayi / 10 

Else 


şayi = şayi / 10 
goto dnz 


Endlf 


top = top + şayi A 3 

If top = şayi Then 

Label3.Text = "Eşit" 

Else 


Label3.Text = "Eşit Değil" 
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End If 

End Sub 

Eııd Class 


Java Kodu: 

import java.util.Scanner; 
public class Sorul0{ 

public static void main(String[] args){ 
int sayi,bas,x; 
ini top=0; 

Scanner oku=new Scanner(System.in); 

System.out.print("Bir sayı giriniz="); 

sayi=oku.nextlnt0; 

x=sayi; 

while(sayi>9) 

{ 

bas=sayi%10; 

top=top+(bas*bas*bas); 

sayi=sayi/10; 

} 

top=top+(sayi*sayi*sayi); 

ifl;top=x) 

System.out.prinl("Eşit"); 

else 

System.out.printC'Eşit Değil"); 

} 

-*- 


O Goto komutu çoğu programlama dilinde bir komut setidir. İstenilen yere 
programı dallandırmak için kullanılan etikettir. Fakat bu komutu ileriki program 
tekniklerinde kullanmanız önerilmez. 
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11. Klavyeden girilen 20 adet sayıdan çift sayıların toplamının tek 
sayıların toplamına oranını bulan programın algoritma ve akış 
diyagramını oluşturunuz. 


Algoritma : 

1. Başla 

2. tek=0, cift=0, şayi, i=l, oran 
değişkenlerini al 

3. say i değerini gir 

4. Eğer sayi%2=0 ise cift=cift+sayi, 
değilse tek=tek+sayi işlemini yap 

5. Eğer i=20 ise devam et, 
değilse i++ 3’e git 
6.oran= cift/tek işlemini yap 

7. Yazdır oran 

8. Bitir 

Açıklama: 

Bu soruda döngü ve şart mekanizması 
yine önümüze çıkmaktadır. 20 defa 
sayı girmek yerine programda 20 defa 
çalışacak bir döngü kurulmalıdır. 
Eğer mekanizması, (%) kalanın tek 
mi çift mi olduğunu saptar ve bunları 
boş değişkenlere atar. Kalan tek ise 
tek değişkenine, çift ise çift 
değişkenine toplanarak atılır. (Bu 
değişkenlere akılda daha kolay 
tutulabilmesi için kese de diyebiliriz.) 
Burada tek ve çift değişkenlerinin 
değerleri başta 0 olmak zorundadır. 
Buna dikkat etmeliyiz, yoksa 
cift=cift+sayi işlemini yapamayız. Bu 
sorunun algoritma testini 20 sayı için 
değil 4 sayı için de yapabilirsiniz. 
Çünkü algoritmayı kurduğunuzda 
algoritma dinamik ise sayı 4 olsun 
1004 olsun farketmez. Bunun için 
statik çözümler yerine dinamik 
çözümler üretmeliyiz. 


Ekran Çıktısı: 

DMG 1 ■=> I B J-ŞaT 



Akış Diyagramı: 
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C Kodu: 

C# Kodu: 

#include <stdio.h> 

using System; 
namespace dmg 

#include <stdlib.h> 

{ 

int main(int argc, char *argv[]) 

class Program 
{ 

static void Main(string[] args) 

{ 

ini sayi,tek=0,cift=0,i; 

{ 

int tek = 0; 

float oran; 

for(i=l ;i<=20;i++) 

int çift = 0; 

{ 

int i.sayi; 
float oran; 

scanf("%d' , ,&sayi); 

for (i = 1; i <= 20; i++) 

if(sayi%2=0) 

{ 

cift=cift+sayi; 

Console. Write(i + ".sayıyı giriniz = "); 

else 

şayi = Convert.Tolnt32(Conso!e. Readl.ine()); 
if ((şayi % 2) = 0) 

tek=tek+sayi; 

cifi = çift + şayi; 

} 

else 

oran=cift/tek; 

tek = tek + şayi; 

printf("oran : %f ".oran); 

> 

oran = çift /tek; 

system("PAUSE”); 

Console. WriteLine("Oran = " + oran); 

retum 0; 

Console. ReadLi ne(); 

> 

} 

> 


Vb.Net Kodu: 


Public Class Forml 

Dim çift = 0, tek = 0, şayi As Integer 

Private Sub Form I _Load(sender As System.Object, e As System.EventArgs) Handles 
MyBase.Load 

Dim i As Integer 
For i = 1 To 20 
şayi = InputBox(sayi) 

Label3.Text = Label3.Text & & şayi 

If (şayi Mod 2) = 0 Then 
çift = çift + şayi 
Else 

tek = tek + şayi 
Endlf 
Next 
End Sub 

Private Sub Buttonl_Click(sender As System.Object. e As System.EventArgs) Handles 
Buttonl.Click 

Label4.Text = CInt(cift / tek) 

End Sub 
End Class 
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12. 10 ile 1000 arasındaki tam kare sayıları ekrana yazdıran programın 
algoritma ve akış diyagramını oluşturunuz. 

Algoritma: Akış Diyagramı: 

1. Başla 

2. sayac=4 değişeni al. 

3. Eğer (sayac*sayac) < 1000 ise 
yazdır sayaç *sayac ve sayacı bir 
artır 3 e git, değilse devam et 

4. Bitir 


Açıklama: 


82 






Algoritma ve Programlama Tamamı Çözümlü Soru Bankası 



83 


































Algoritma ve Programlama Tamamı Çözümlü Soru Bankası 


13. Klavyeden girilen 25 adet sayı içerisinden negatif olanların toplamını, çift 
sayıların toplamını, 7'ye eşit olanların âdetini bulup ekrana yazdıran 
programın algoritma ve akış diyagramı oluşturunuz. 


Algoritma: 

1. Başla 

2. i=l,sayi,neg=0,cift=0,esit=0 
değişkenlerini al 

3. şayi değerini gir 

4. Eğer sayi<0 ise neg=neg+sayi, 
değilse devam et 

5. Eğer sayi%2=0 ise cift=cift+sayi, 
7’ye git, değilse devam et 

6. Eğer sayi=7 ise esit=esit+l, 
değilse devam et 

7. Eğer i=25 ise devam et, 
değilse i++ 3’e git 

8. Yazdır “negatif:” neg, “çift:” çift, “ 
7'ye eşit:” eşit 

9. Bitir 

Açıklama: 

Bu soru basit olmakla beraber, 
programlama dilinde çok önemli ve 
çok kullandığımız if yapılarım 
anlatmaktadır. Tabii ki algoritmada if 
yerine eğer kullanıyoruz. Çünkü 
algoritmada program dili komutları 
kullanmıyoruz. Soru basittir ama bize 
eğer (karar) mekanizmasına iyice 
alışmamız gerektiğini anlatmaktadır. 
Buna örnek için içe for döngülerinde 
matris işlemlerini örnek verebiliriz. Bu 
testi yaparken programın dinamik 
olduğunu göz önüne alarak biz 5 sayı 
için yapmayı tercih ettik. İstenilirse 25 
için de, 5 için de N kez için de olabilir. 


Ekran Çı ktısı: 


». DMG l-ca ı <3 m ■ l'ı ■ 


Sayıl ar : 7 7-3-12 

Qh Sayı Toplam : 5 

Nooafif Sayı Toplana : 4 

7 rakam «ayısı 2 



Akış Diyagramı: 
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C Kodu: 

C# Kodu: 

#include <stdio.h> 

using System: 

tfinclude <stdlib.h> 

namespace dmg 

int main(int argc, char *argv(]) 

{ 

{ 

class Program 

int i,sayi,negati<=0,cift=0,bol=0; 

{ 

for(i=l ;i<=25;i++) 

/ 

static void Main(string[] args) 

{ 

int i = 1; int şayi; 

\ 

printf{"Sayı giriniz"); 

scanf("%d".&sayi); 

int neg = 0, cifi = 1, bol = 0; 

if(sayi<0) 

for (i = 1; i <= 25; i++) 

negatif=negatif+sayi; 

{ 

if(sayi%2=0) 

Conso!e.Write(i + ".sayıyı giriniz = "); 

cift=cift*sayi; 

şayi = 

if(sayi=7) 

Convert.ToInt32(Console.ReadLine()); 

bol++; 

} 

printf)"negatif :%d \n,cift :%d\n,7'e eşit: 

if (şayi < 0) 

{ 

neg = neg + şayi; 

%d",negatif,cift,bol); 

} 

system("PAUSE”); 

else if ((şayi % 2) = 0) 

retum 0; 

{ 

} 

cifi = cifi * şayi; 

Vb.Net Kodu: 

} 

Public Class Forml 

else i f (şayi = 7) 

Private Sub Forml Load(sender As 

{ 

System.Object, e As System.EventArgs) Handles 

bol++; 

> 

} 

MyBase.Load 

Dim negatif = 0, çift = 0, bol = 0, i As Integer 

Dim şayi As Integer 

Console.WriteLine("Negatif sayıların 

For i = 1 To 5 

toplamı = " + neg); 

şayi = lnputBox(i) 

ConsoIe.WriteLine("Çift sayıların çarpımı = 

Label5.Text = Label5.Text & " ” & şayi 

" + cifi); 

If (şayi < 0) Then 

Console.WriteLine("7'e eşit olanların adeti = 

negatif = negatif + şayi 

" + bol); 

End If 

Console.ReadLineO; 

If (şayi Mod 2 = 0) Then 

} 

} 

} 

çift = çift + şayi 

End If 

If (şayi = 7) Then 
bol = bol + 1 

End If 

Next 

TextBoxl.Text = cifi 

TextBox2.Text = negatif 

TextBox3.Text = bol 

End Sub 

End Class 
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14. Çarpım Tablosunun algoritma ve akış diyagramını oluşturunuz. 


Algoritma: 

1. Başla 

2. i=l , j=l değişkenlerini al. 

3. Yazdır i*j 

4. Eğer (j=10) ise devam et, 
değilse j++ 3'e git 

5. Eğer (i=10) ise devam et, 

değilse i++, j=l yap ve 3'e git 
ö.Bitir 


Ekran Çıktısı: 



Açıklama: Akış Diyagramı: 


Çarpım tablosu sorusu bize iç içe 
döngü olayım öğretmek için birebir 
bir sorudur. C programlama dilinde 
böyle örnekler için for döngüleri 
çok kullanılmaktadır. Bu soruda iki 
değişken alınmıştır. Bunlar i ve j 
değişkenleridir. Burada i bir defa 
çalıştığında j 10 defa çalışacaktır. 
İşlemin bütün mantığı buna 
dayanmaktadır. Bu soruyu karar 
mekanizmaları ile çözdük ama 
döngü şekli ile de akış 
diyagramımızı çizebiliriz. Döngü 
şeklimiz akış diyagramlarında 
bulunmaktadır. Bunu için kitabın ilk 
sayfalarında akış diyagramı ile ilgili 
bölümlere tekrar bakılabilir. 
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15. Girilen sayının 5'in kuvveti olup olmadığını bulan programın 
algoritma ve akış diyagramını oluşturunuz. 


Algoritma: 

1. Başla 

2. sayi değikenini al. 

3. şayi değerini gir. 

4. Eğer sayi%5=0 ise sayi=sayi/5 
4’e git, değilse devam et 

5. Eğersayi=l ise yazdır 
“5'inkuvvetidir”, değilse yazdır 
“5'in kuvveti değildir” 

6. Bitir 
Açıklama: 

Bu soruda girilen sayının 5’in katı 
olup olmadığına bakılmaktadır. 
Bu soruda düşünülen mantık 
sayıyı devamlı 5’e böldürmektir. 
Kalan 0 olmazsa zaten 5’in katı 
değildir ve programdan 
çıkılmaktadır. Fakat sayıyı 
devamlı 5’e bölüp kalanı 0 
bulduğumuzda ve en son artık 
sayımız azala azala l‘e eşit 
duruma geldiyse, o zaman 5’in 
katıdır diyebiliriz. 


Ekran Çıktısı: 

' DMG i ° i <3 

Sayı: 25 
51n kuvveti 

Hesapla j 


Akış Diyagramı: 
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C Kodu: 

C# Kodu: 

#include <stdio.h> 

#include <stdlib.h> 

using System; 
namespace dmg 
{ 

class Program 

int main(int argc, char *argv[j) 

{ 

{ 

int şayi ; 

static void Main(string(] args) 

printf ("Sayıyı giriniz: "); 

: { 

scanf("%d’',&sayi); 

int şayi = 0; 

dnz: 

Console.Write("Sayı giriniz = ”); 

if(sayi%5=0) 

{ 

ayi = Convert.Tolnt32(Console.ReadLine()); 
dnz: 

sayi=sayi/5; 

if (şayi % 5 = 0) 

goto dnz; 

{ 

} 

şayi = şayi / 5; 

if(sayi=l) 

goto dnz; 

printf("5'in kuvvetidir"); 

} 

else 

else if(sayi = 1) 

printf("5'in kuvveti değildir"); 

{ 

system("PAUSE"); 

Console.WriteLine("5'in kuvvetidir”); 

retum 0; 

} 

} 

else 

{ 

Console.WriteLine("5’in kuvveti değildir"); 

} 

Console.ReadLine(); 

} 

) 

— 

Vb.Net Kodu: 


Public Class Forml 


Private Sub Buttonl_Click(sender As System.Object, e As System.EventArgs) Handles 

Buttonl.Clıck 


Dim şayi As Integer = CInt(TextBoxl.Text) 

dnz: 


Dim modx As Integer = şayi Mod 5 

If modx = 0 Then 


şayi = şayi / 5 

GoTo dnz 


Endlf 

If şayi = 1 Then 

Label2.Text = "5'in kuvveti 
Else 


Label2.Text = "5'in kuvveti de2il." 

Endlf 


End Sub 

End Class 


Java Kodu: 


import java.util.Scanner; 
public class Sorul5) 
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16. Fibonacci serisinin ilk 10 terimini ekrana basan algoritma ve akış 
diyagramını oluşturunuz. 


Algoritma: 

1 .Başla 

2. şayi 1=1 ,say i2= 1 ,sayi3 ,sayac=3 
değişkenlerini al. 

3. Yazdır sayil,sayi2 

4. sayi3=sayil+sayi2 işlemini yap. 

5. Yazdır sayi3 

6. sayil=sayi2,sayi2=sayi3 

7. Eğer sayac=10 ise devam et, 
değilse sayacı arttır ve 4'e git 

8. Bitir 

Açıklama: 

Daha önce 6. yüzyılda Hintli 
matematikçiler tarafından 

bulunmuş olan bu sayı dizisi Liber 
Abaci kitabında tavşanların 
üremesiyle ilgili problemin 
hesaplanması sonucu Fibonacci 
tarafından 1202 yılında ortaya 
konmuştur. Dizinin ilk sayı değeri 
1, İkincisi 1 ve her ardışık elemanı 
da önceki iki elemanın sayı 
değerinin toplamı alınarak 

bulunmaktadır ve bu halde 1, 1, 
2(1+1), 3(2+1), 5(3+2), 8(5+3), 
13(8+5),... şeklinde artmaktadır. 


Ekran Çıktısı: 



Akış Diyagramı: 
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C Kodu: 

Ot Kodu: 

#include <stdio.h> 

using System; 

# incinde <stdlib.h> 

namespace dmg 

int main(int argc, char *argv[]) 

{ 

{ 

class Program 

int sayil=l,sayi2=l,sayi3,sayac; ; 

{ 

printft"%d ",sayi 1); 

static void Main(string[] args) 

printfî"%d ”,sayi2); 


for(sayac=3;sayac<= 10;sayac++) 

int sayil = 1; int sayi2 = 1; 

{ 

int sayi3; int sayaç ; 

sayi3=sayil+sayi2; 

Console. Write(sayi 1); 

printft"%d ",sayi3); 

Console.Write(sayi2); 

sayil=sayi2; 

for(sayac=3;sayac<=l 0;sayac++) 

sayi2=sayi3; 

{ 

} 

sayi3 = şayi 1 + sayi2; 

system(”PAUSE"); 

Console. Write(sayi3); 

retum 0; 

sayil = sayi2; 

} 

sayi2 = sayi3; 

} 

Console.ReadLineO; 

} 

} 

} 

Vb.Net Kodu: 


Public Class Forml 

Private Sub Buttonl_Click(sender As System.Object, e As System.EventArgs) Handles 
Buttonl.Click 

Di m sayaç 

Dim sayil = l, sayi2 = 1, sayi3 As Integer 

ListBo\ 1. Items. Add(sayi 1) 

ListBox 1.Items. Add(sayi2) 

For sayaç = 3 To 10 
şayi 3 = sayil + şayi 2 
listBoxl.Items. Add(sayi3) 
sayil = şayi 2 
sayi2 = şayi 3 

Next 

Labell.Text = "Fibonacci Serisinin İlk 10 Terimi" 

End Sub 

End Class 

Java Korlü: 


import java.util.Scanner; 
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17. Klavyeden girilen bir sayının negatif, pozitif veya 0 olup olmadığını 
bulan programın algoritma ve akış diyagramını oluşturunuz. 


Algoritma: 

1. Başla 

2. şayi değişkenini al. 

3. şayi değerini gir. 

4. Eğer sayi>0 ise yazdır "pozitif”, 
değilse devam et 

5. Eğer sayi<0 ise yazdır 
"negatifdeğilse yazdır “şayi 0" 
ö.Bitir 

Açıklama: 

Temel sorulardan biri de sayının negatif 
mi pozitif mi olması durumudur. 
Burada 3 sayı varsa ya da 3 işlem varsa 
3-1=2 adet eğer(if) işlemi 

gerekmektedir. O Eğer (if) 
programlama dilinde önemli bir 
kavramdır. Bu soru, bu gibi 
programlarda fazla eğer kullanmamızı 
önlemek amacı içerir, daha az eğer 
kullanarak pratik yoldan yapma 
mantığını gösteren güzel ve anlaşılır bir 
örnektir. 


Ekran Çıktısı: 

.gDMG 

Girilen Sayı : 23| 

Sonuç : Pozitif 


Akış Diyagramı: 



95 

























Algoritma ve Programlama Tamamı Çözümlü Soru Bankası 


C Kodu: 

C# Kodu: 

#include <stdio.h> 

using System; 

ftinclude <stdlib.h> 

namespace dmg 
r 

int main(int argc, char *argv[]) 

t 

class Program 

{ 

i ı 

int şayi; 

static void Main(string)] args) 

scanf("%d",&sayi); 

{ 

i f(sayi>0) 

int şayi; 

printff'sayi pozitiftir"); 

Console.Write(”Sayıyı giriniz = "); 

else 

şayi = Convert.ToInt32(Console.ReadLineO); 

{ 

if (şayi > 0) 

İffsayi<0) 

{ 

printf("sayi negatiftir"); 

Console.Write("Sayı pozitiftir"); 

else 

} 

printf ("şayi 0 'a eşittir”); 

else if (şayi < 0) 

} 

{ 

system("PAUSE"); 

Console.Write("Sayı negatiftir”); 

retum 0; 

> 

} 

else 

{ 

Console.Write("Sayı 0'a eşittir"); 

} 

Console.ReadLineO; 

> 

} 

> 

Vb.Net Kodu: 


Public Class Forml 


Private Sub TextBoxl_TextChanged(sender As Systcm.Object, e As System. EventArgs) 

Handles TextBox 1 .TextChanged 


Di m i As lııteger 
i =Clnt(TextBoxl.Text) 

If i > 0 Then 


Label3.Text = "Pozitif' 

Elself i < 0 Then 


Label3.Text = "negatif 


Else 

Label3.Text = "Sıfır" 

Endlf 


End Sub 

End Class 


•lava Kodu: 


import java.util.Scanner; 
public class Sorul7{ 


public static void main(String[] args){ 

ınt sayı; 


^^steımout.print("Birsayı s 

riniz="); 
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18. Girilen sayının mükemmel sayı olup olmadığını bulan programın 
algoritma ve akış diyagramını oluşturunuz. 


Algoritma: 

1. Başla 

2. şayi, sayac=2,top=l 
değişkenlerini al. 

3. şayi değerini gir 

4. Eğer sayi%sayac=0 ise 
top=top+sayac,sayac++ .değilse 
sayac++ devam et 

5. Eğer sayac>(sayi/2) ise devam 
et,değilse 4'e git 

6. Eğer top=sayi ise yazdır 
“Mükemmel sayı”, değilse yazdır 
“Mükemmel sayı değildir” 

7. Bitir 

Açıklama: 

Mükemmel sayı sorusu, bizim en 
sevdiğimiz soru çeşitlerindendir. 
Döngü kavramı karşımıza burada 
daha açık bir şekilde çıkmaktadır. 
Mükemmel sayının açıklamasına 
bakarsak, kendisini tam bölen 
sayıların toplamı, kendine eşit olan 
sayılardır. Örnek 28’dir. 

1+2+4+7+14 = 28 


Ekran Çıktısı: 

•şJ OMG a l—aü 


SayıGmz 

28 1 Hurt 1 

Sonuç 

mtJtemmeldr 


Akış Diyagramı: 
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C Kodu: 

C# Kodu: 

#include <stdio.h> 

Sinclude <stdlib.h> 

using System; 
namespace dmg 
{ 

class Program 

int main(int argc, char *argv[]) 

! 

( 

int sayi,sayac=2,top= 1; 

static void Main(string[] args) 

scanf("%d",&sayi); 

{ 

dnz: 

int şayi; 

i f)sayi%sayac=0) 

int sayaç = 2; 

1 

int top = 1; 

top=top+sayac; 

Console.Write("Sayıyı giriniz = "); 

sayac++; 

sayi= Convert.ToInt32(Console.ReadLine()); 

} 

dnz; 

else i 

i f (şayi % sayaç = 0) 

sayac++; 

{ 

if{sayac>sayi/2) 

top = top + sayaç; 

{ 

sayac++; 

if(top=sayi) 

> 

printfV'mukemmeldir''); 

else 

else 

{ 

printf("mukemnıel değildir"); 

sayac++; 

} 

} 

else 

if (sayaç > şayi / 2) 

goto dnz; 

{ 

system("PAUSE"); 

if(top = sayi) 

retum 0; 

Console.WriteLine("Mükemmeldir"); 

} 

else 

Console.WriteLine("Mükemmel değildir”); 

} 

else 

{ 

goto dnz; 

} 

Console.ReadLine(); 

} 

} 

Vb.Nct Kodu: 


Public Class Forml 


Private Sub Buttonl_Click(sender As System.Object, e As System.EventArgs) Handles 

Buttonl.Click 


Dim sayaç = 2, top = 1, şayi As Integer 
şayi = CInt(TextBoxl .Text) 

dnz: 


If (şayi Mod sayaç = 0) Then 

top = top + sayaç 
sayaç = sayaç + 1 


Else 


sagc^a^a^^^ 
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19. 1-100 arasındaki çift sayıların toplamının mükemmel sayı olup 
olmadığını bulan programın algoritma ve akış diyagramını 
oluşturunuz. 


Algoritma: 

1 .Başlat 

2.i=0,top=0,y=0 değişkenlerini al 

3. top=top+(2+i) işlemini yap 

4, Eğer (i+2)=100 ise devam et, 
değilse i=i+2 3’e git 

5.i=l işlemini yap 

6. Eğer top%i=0 ise y=y+i, 
değilse devam et 

7. Eğer top=i+l ise devam et, 

değilse i=i+l ,6’ya git 

8. Eğer top=y ise yazdır 
“Mükemmeldir”değilse 
“Mükemmel değil” 

9. Bitir 
Açıklama: 

Bu soruda şunu bilmeliyiz ki 1 ile 
100 arasında... tarzındaki sorularda 
l’den 100’e kadar program 
kodumuz istediğimiz yerden 
döngüye girecektir. Buna göre i 
değerimiz yani bir sayacımız 
olacak, değer her defasında 
artacaktır. Eğer programda 100’den 
1 ‘e denilirse bu değer her defasında 

azaltılacaktır. O C böyle 
sorularda her zaman for 
döngüsünü sever. Bir de burada 
fazladan bir (sayi%2) eğeri koymak 
yerine, zaten çift sayıları 
bildiğimizden hemen top=top+2 
diyerek, çiftleri direkt döngüye 
eklememiz uygun olacaktır. Sonra 
bu toplama (top değişkenin 


Ekran Çıktısı: 

omg ı. ° ı s» tea«r 

1-100 arasındaki <?ft sayılann toplam : Mükemmel de>dr 


Akış Diyagramı: 
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içindeki), mükemmel sayı mı diye 
bakılmaktadır. 
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C Kodu: 


#include <stdio.h> 

# incinde <stdlib.h> 

int main(int argc, char *argv[]) 

{ 

int i,top=0,y=0; 
for(i=0;i<=98;i-H-) 

{ 

top=top+(2+i); 

) 

for(i= 1 ;i<=(top/2);i-n-) 

{ 

if((top%i)=0) 

y=y+i; 

> 

ifttop=y) 

printfrmukemmel"); 

else 

printfi("mukemmel değildir"); 

system("PAUSE"); 
retum 0; 


C# Kodu: 


using System; 
namespace dmg 
{ 

class Program 

{ 

static void Main(string(] args) 

{ 

int i; int top = 0; 
int y = 0; 

for (i = 0; i <= 98; i++) 

{ 

top = top + (2 + i); 

} 

for (i = 1; i <= (top / 2); i++) 

{ 

if ((top % i) = 0) 

{ 

y = y+i; 

} 

} 

if (top = y) 

Console.WriteLine("Mükemmer); 

else 

ConsoIe.WriteLine("Mükemmel değildir"); 
Console. ReadLineO; 


} 


L 


Vb.Net Kodu: 

Public Class Forml 

Private Sub Forml_Load(sender As System.Object, e As System.EventArgs) Handles 
MyBase.Load 

Dim top = 0, y = 0, i As Integer 
For i = 0 To 98 
top = top + (2 + i) 

Next 

For i = 1 To i <= (top / 2) 

İf ((top Mod i) = 0) Then 

y = y + i 

Endlf 

Next 

İf (top = y) Then 

Labell.Text = "Mükemmel" 

Else 

Label2.Text = "Mükemmel değildir" 

Endlf 
End Sub 
End Class 


■lava Kodu: 

import java.util.Scanner; 
public class Sorul9{ 

public static void tnain(String[] args){ 


103 














Algoritma ve Programlama Tamamı Çözümlü Soru Bankası 



104 





Algoritma ve Programlama Tamamı Çözümlü Soru Bankası 


20. Herhangi bir sayının herhangi bir dereceden kuvvetini bulan 
programın algoritma ve akış diyagramını oluşturunuz. 


Algoritma: 

1. Başla 

2. sayi,us,top=l değişkenlerini al 

3. sayi,us değerini gir 

4. top=top*sayi işlemini yap 

5. us değerini bir azalt 

6. Eğer us>0 ise 4'e git, 
değilse devam et 

7. Yazdır top 

8. Bitir 
Açıklama: 

Bu soruda program dili ile 
kullandığımız ( A ) işareti ya da hazır 
fonksiyonları 

kullanılmamıştır.Girilen sayının us 
değerine göre aldığı sonuç 
hesaplanmıştır. Burada sayaç olarak 
us değişkeni kullanılmıştır. Azalma 
için ise “ - - “ ifadesi kullanılmıştır. 

Ekran Çıktısı: 

r dmg | o | b | 

Sayı: 3 j Hesapla I 

Os: 2 

Sonuç: 9 


Akış Diyagramı: 
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C Kodu: 

I #include <stdio.h> 

^İncilide <stdlib.h> 

int main(int argc, char *argv[]) 
{ 

int sayi,us,top=I; 
printf("Sayiyi giriniz"); 
scanf)"%d",&sayi); 
printf("Ussu giriniz"); 
scanf("%d",&us); 
while(us>0) 

{ 

top=top*sayi; 
us -; 

} 

printf("Sonuç : %d ”,top); 
system("PAUSE"); 
retum 0; 

} 


Ctf Kodu: 

using System; 
namespace dmg 
{ 

class Program 

{ 

static void Main(string[] args) 

{ 

int şayi; 
int us; 
int top = 1; 

Console.Write("Sayıyı giriniz = "); 

şayi = Convert.Tolnt32(Console.ReadLine()); 

Console.Write("Ussu giriniz = ”); 

us = Convert.ToInt32(Consoie.ReadLine()); 

whi!e (us > 0) 

{ 

top = top * şayi; 
us—; 


} 


Console.Write("Sonuç = "+top); 
Console.ReadLine(); 


Vb.Net Kodu: 

| Public Class Forml 

Private Sub Button l_Click(sender As System.Object, e As System.EventArgs) Handles 
| Buttonl.Click 

Dim top = 1, şayi As Integer 
Dim us As Integer 
şayi = CInt(TextBoxl .Text) 
us = CInt(TextBox2.Text) 

While (us > 0) 
top = top * şayi 
us = us - 1 
End While 

TextBox3.Text = Clnt(top) 

End Sub 
I End Class 


■lava Kodu: 

import java.util.Scanner; 

I public class Soru20{ 

public static void main(String[] args){ 
int sayi,us,top=l; 

Scanner oku=new Scanner(System.in); 
Systcm.out.printC'Bir sayı giriniz="); 
sayi=oku.nextlnt(); 
System.out.print("Üssü giriniz="); 
us=oku.nextIntQ; 
while(us>0) 

S 
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21. Girilen sayının abundant (güçlü) sayı mı ya da deficient (güçsüz) 
sayı mı olduğunu bulan programın algoritma ve akış diyagramını 
oluşturunuz. 


Algoritma: 

1. Başla 

2. sayi ,bolen= 1 ,sayac=2 değiş, al 

3. şayi değerini gir 

4. Eğer sayi%sayac=0 ise 
bolen=bolen+sayac ve sayaç ++, 
değilse sayac++ devam et 

5. Eğer sayac<=(sayi/2) ise devam et, 
değilse 4'e git 

ö.Eğer bolen>sayi ise yazdır 
“Abundant sayı”, değilse yazdır 
“Deficient sayı” 

7.Bitir 

Açıklama: 

Bu soru aslında mükemmel sayı 
mantığına yakın bir sorudur. Döngü 
ve karar mekanizmaları bu soruda da 

bulunmaktadır. O Önemli olan 
programlamada if ve döngü 
yapılandır. Bunlar çok iyi 
kavranmalıdır. Bu soruda bir sayı 
girilmektedir. Bu sayıyı tam bölen 
sayıları bulmak için, sayı/2’ ye kadar 
sayımızı sayaca böldürüp kalan değer 
0 ise bunu bölen adlı değişkenin içine 
toplayarak atılmaktadır. Çıkan 
bölenler toplamı değer ile sayıyı 
karşılaştırıp büyük ise “güçlü” , 
küçük ise “güçsüz” diye ekrana 
basılmaktadır. 



Ekran Çıktısı: 

•g DMG 

IjülÜLİiaBsi 

Sayı Griniz 

2i 

Hesapla 

ebonöart sayı 


Akış Diyagramı: 
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C Kodu: 

C# Kotlu: 

#include <stdio.h> 

using System; 

#include <stdlib.h> 

namespace dmg 

t 

int main(int argc, char *argv[]) 

X 

class Program 

{ 

{ 

int şayi ,bolen=l,sayac=2; 

static void Main(string[] args) 

scanfl["%d",&sayi); 

i { 

while(sayac<=(sayi/2)) 

int şayi; int bölen = 1; 

1 

int sayaç = 2; 

i f(say İ%sayac=0) 
bolen=bolen+sayac; 
sayac++; 

» 

Console.Write("Sayıyı giriniz = "); 

şayi = Convert.ToInt32(Console.ReadLine()); 

while (sayaç <=( sayi/2)) 

{ 

if (şayi % sayaç = 0) 

/ 

ifi(bolen>sayi) 

printlT'abondant şayi"); 

{ 

else 

bölen = bölen + sayaç; 

printlV’Defıcient şayi"); 

} 

system( "PAUSE"); 

sayac++; 

retum 0; 

î 

> 

if (bölen > şayi) 

{ 

Console.Write("Abondant şayi"); 

} 

else 

{ 

Console.Write("Defıcient şayi"); 


/ 

Console.ReadLine(); 

1 } 

} 

> 

Vb.Net Kodu: 

Public Class Forml 


Private Sub Buttonl_Click(scnder As System.Object. e As System.EventArgs) Handles 

Buttonl.Click 


Di m bölen = 1, sayaç = 2, şayi As Integer 

şayi = Clnt(TextBoxl.Text) 

While (sayaç <= (şayi / 2)) 


If (şayi Mod sayaç = 0) Then 


bölen = bölen + sayaç 
sayaç = sayaç + 1 


End If 

sayaç = sayaç + 1 


End VVhile 

If (bölen > şayi) Then 

Label2.Text = "abondant şayi" 
Else 

Label2.Text = "Deficient şayi" 
End If 


End Sub 

End Class 


Java Kodu: 

import java.util.Scanner; 
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22. l'den 500'e kadar olan tamsayıların toplamını bulan programın 
algoritma ve akış diyagramını oluşturunuz. 


Algoritma: 


1. Başla 

2. i=l,toplam=0 değişkenlerini al 


Ekran Çıktısı: 

DMG l °ı @ Hm&ml 

1-500 arasa tamsayı toplam 


3. toplam=toplam+i işlemini yap 

4. Eğer i=500 ise ö.adıma git, 
değilse devam et 

5. i=i+l ve 3. adıma git 

6. Yazdır toplam 

7. Bitir 
Açıklama: 

Bu soru tipik döngü sorusudur. Her 
zaman belirttiğimiz gibi bir sayı aralığı 
veriliyorsa (burada olduğu üzere 1 ile 
500 gibi) hemen aklımıza i sayısı ve 
döngü yani i değerimiz 500’e eşit olana 
kadar programı tekrarlamamız 
gerektiği gelmelidir. Burada i 
değişkeni 500‘e eşit olduğunda 
döngüden çıkılacak ve toplam 
değişkeni ekrana basılacaktır. 
(toplam=toplam+i) 


Akış Diyagramı: 
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C Kodu: 


#include <stdio.h> 
ftinclude <stdlib.h> 

int main(int argc, char *argvf]) 
{ 

int i,toplam=0; 
for(i=l;i<=500;i-H-) 
toplam=toplam+i; 
print(i;"%d",toplam); 
systemÇPAUSE"); 
retum 0; 


Ctt Kodu: 


using System; 
namespace dmg 

class Program 

{ 

static void Main(string[] args) 

{ 

int i; 

int toplam = 0; 

for (i = 1; i <= 500; i++) 

{ 

toplam = toplam + i; 

} 

Console.Write("Toplam = " + toplam); 
Console.ReadLine(); 


} 


Vb.Net Kodu: 

Public Class Forml 

Private Sub Forml_Load(sender As System.Object, e As System.EventArgs) Handles 
MyBase.Load 

Di m toplam = 0, i As Integer 
For i = 1 To 500 
toplam = toplam + i 
Next 

TextBoxl.Text = toplam 

End Sub 
End Class 


Java Kodu: 


import java.util.Scanner; 
public class Soru22{ 

public static void main(String[| args){ 
int i,toplam=0; 
for(i=l ;i<=500;i++) 

{ 

toplam =toplam+i; 

} 

System.out.print("Toplam="+toplam); 

} 
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23. Girilen a ve b sayısı 50’den büyük olduğunda c=a+b işlemini yapan 
değilse bu sayılar uygun değil yazdıran programın algoritma ve akış 
diyagramını oluşturunuz. 


Algoritma: 


Ekran Çıktısı: 


1 Başla ' DMG 1 ■=» ı a 

2. a, b değişkenlerini al. 

3. a, b değerlerini gir. 

4. Eğer a>50 && b<50 ise devam et. 


a değişkenini gir : 23 
b değişkenini gir : 45 


Hesapla 


bu sayılar uygun değildir 


değilse 7’ye git 


5. c=a+b işlemini yap 

6. Yazdır c, 8'e git 

7. Yazdır “Bu sayılar uygun değildir” 

8. Bitir 

Açıklama: 

Bu soru artık sizlere yavaş yavaş basit 
gelmeye başlayacaktır. Burada değişik 
olan && operatörüdür. Daha önce hiç 
ikili karşılaştırma yapılmamıştır. 
Algoritma, burada 4. satırda a >50 ve 
aynı zamanda b<50 olması yani 
ikisinin de doğru olması durumunda 
c=a+b işlemini yapacak yoksa “bu 
sayılar uygun değildir” yazacaktır. Bu 
şekilde programlama diline de geçince 
iki eğer kullanacağımıza, tek eğer 
içinde operatörler kullanarak 
işlemimiz tek hamlede çözülebilir hale 

gelecektir. ^^Operatörler bölümüne 
bakabilirsiniz. 


Akış Diyagramı: 
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C Kodu: 


#include <stdio.h> 

#includc <stdlib.h> 

int main(int argc, char *argv[]) 

{ 

int a.b.c; 

printf("a sayisini giriniz: ”); 

scanfl["%d",&a); 

printf("b sayisini giriniz: "); 

scanfT%d",&b); 
ifta>50 && b>50) 

{ 

c=a+b; 

printft'*%d”,c); 

} 

else 

printfT’bu sayilar uygun değildir"); 
system("PAUSE"); 
retum 0; 

} 


C# Kodu: 


using System; 
namespace dmg 
{ 

class Program 

{ 

static void Main(string(] args) 

{ 

int a, b, c; 

Console.Write("A sayısını giriniz = "); 
a=Con vert.T oInt32(C oıısole. ReadLi ne()); 
Console.Write("B sayısını giriniz = ”); 
b = Convert.Tolnt32(Console.ReadLine()); 
if(a>50&& b>50) 

{ 

c = a + b; 

Console.Write( "Toplam = " +c); 

) 

else 

{ 


} 


Console.Write("Bu sayılar uygun değildir"); 


} 


Console.ReadLine(); 


Vb.Net Kodu: 


Public Class Forml 

Private Sub Buttonl_Click(sender As System.Object, e As System.EventArgs) Handles 
Buttonl.Click 

Dim a, b, c As Integer 
a = TextBox I .Text 
b = TextBox2.Text 

If (a > 50 & b > 50) Then 
c = a + b 
Label3.Text = c 
Else 

Label3.Text = "bu sayilar uygun değildir" 

Endlf 

End Sub 
End Class 


Java Kodu: 


i mport ja va. ut il. Scanner; 
public class Soru23{ 

public static void main(String[] args){ 
int a,b,c; 

^^^^canner^kı^nev^canneriS^temdn); 
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System.out.print("Bir sayı giriniz="); 
a=oku.nextlnt(); 

System.out.print("Bir sayı giriniz=”); 

b=oku.nextlnt(); 

ifl[a>50 && b>50) 

{ 

c=a+b; 

System .out. print("T oplam“" +e); 

> 

else 

System.out.print("Bu sayılar uygun değil”); 
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24. l'den 63'e kadar olan sayılar arasında istenilen sayıyı maksimum 6 
seferde bulan programın algoritma ve akış diyagramını 
oluşturunuz. 


Algoritma: 

I .Başla 

2. alt=l,ust=63,tutulan(rastgele) 
tahmin,sayac=0 değişkenlerini al 

3. tahmin değerini gir 

4. tahmin=(alt+ust)/2 işlemini yap 

5. sayacı arttır 

ö.Eğer tahmin=tutulan ise 
8. adıma git, değilse devam et 

7. Eğer tahmin>tutulan ise 
ust=tahmin 3.adıma git, 
değilse alt=tahmin 3.adıma git 

8. Yazdır sayac,tahmin 

9. Bitir 

Açıklama: 

Bu soru, matematik olimpiyatlarında 
sorulmuş bir sorudur ve ileride dizi 
sorularında binary(ikili) arama 
konusunda anlatacağımız olan 
algoritmayı kullanan bir sorudur. Bu 
sorularda 1-63 arası... dendiğinde alt 
ve üst değer olarak en düşük ve en 
yüksek değerleri alır, dolayısıyla bu 
soruda alt=l ve ust=63 olacaktır. Bir 
de bu seride arayacağımız sayımız 
olucaktır. Bu soruda bu rastgele 
bilgisayara aldırılmaktadır. Tutulan 
sayıyı bulana kadar seriyi her 
defasında tutulan sayının büyük ya da 
küçük olmasına göre böle bole 
küçülteceğiz. 


Ekran Çıktısı: 


ay DMG 


Tutulan Sayı : 

m 

Sefer Sayısı : 

6 

Tahminler : 

32 1G 24 20 22 23 


Akış Diyagramı: 
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C Kodu: 

CU Kodu: 

#include <stdio.h> 

#incinde <stdlib.h> 

int main(int argc, char *argv[|) 

{ 

İlli 

using System; 
namespace dmg 
{ 

class Program 
{ 

static void Main(string[] args) 

alt=l,ust=63,tahmin,sayac=0; 

{ 

int randomNumber(); 

int alt = 1; int ust = 63; 

srand(time(0)); 

int tahmin; int sayaç = 0; 

int tutulan=(rand() % 63) + 1; 

Random rnd = new Random(); 

dnz: 

tahmin=(alt+ust)/2; 

int tutulan = rnd.Next(63) + 1; 

sayac++; 

dnz: 

if(tahmin=tutulan) 

talimin = (alt + ust) / 2; sayac++; 

printf(''tutulan :%d sayaç %d". 

if (tahmin = tutulan) 

tutulan.sayac); 

( 

else 

{ 

if(tahmin>tutulan) 

Console.Write("Tutulan = "+tutulan+ " sayaç = " + sayaç); 

\ 

i 

else 

ust=tahmin; 

I 

else 

if (tahmin > tutulan) 

alt=tahmin; 

{ 

goto dnz; 

ust = tahmin; 

1 

} 

system("PAUSE"); 
retum 0; 

} 

else 

{ 

alt = tahmin; 

} 

goto dnz; 

> 

Console.ReadLine(); 

} 

} 

î 


Vb.Net Kodu: 


Public Class Forml 


Private Sub Forml_Load(sender As System.Object, e As System.EventArgs) Handles 

MyBase.Load 


Dim alt = 1, ust = 63, sayaç 
Dim tutulan As Byte 

Dim m As Ne w Random 
tutulan = m.Next(I, 63) 
TextBoxl.Text = tutulan 

= 0. tahmin As Integer 

dnz: 


tahmin = (alt + ust) / 2 
sayaç = sayaç + 1 

If (tahmin = tutulan) Then 


TextBox2.Text = sayaç 


Labei3.Text = Label3.Text & " " & tahmin 

Else IRtahmin > tutulan) Then 

ust = tahmin 
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Label3.Text = Label3.Text & " " & tahmin 

GoTo dnz 

Else 

alt = tahmin 

Label3.Text = Label3.Text & " " & talimin 

GoTo dnz 

End If 

End Sub 

End Class 


Java Kodu: 


import java.util.Random; 
public class Soru24{ 

public static void main(String[] args){ 
int alt=l,ust=63,tahmin,sayac=0; 

Random r=new Random(); 
int tutulan=r.nextlnt(64); 
do 
{ 

tahmin=(alt+ust)/2; 

sayac++; 

if{tahmin=t utulan) 

{ 

System.out.print("Tutulan= 

break; 

1 

"+tutulan+" sayac="+sayac); 

l 

else if)tahmin>tutulan) 

ust=tahmin; 

else 

alt=tahmin; 

} while(tahmin!=tutulan); 

} 

2 ^ 

• 
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25. Girilen decımal (onluk) bir sayının bınary (ikilik) bir sayıya 

dönüştüren programın algoritma ve akış diyagramını oluşturunuz. 


Algoritma: 

1. Başla 

2. sayi,i=0,top=0 değişkenlerini al 

3. şayi değerini gir 

4. sayi>2 olduğu sürece 8. adıma 
kadar olan işlemleri yaptır 

5. top=top+((sayi%2)*( 10 A i)) 

6. sayi=sayi/2 işlemini yap 
7.i değişkenini arttır 

8. top=top+(sayi*(10 A i)) işlemini yap 

9. Yazdır top 

10. Bitir 
Açıklama: 

Bu soru, kitapta çok kez çeşitlerini 
çözdüğümüz sorulardan biridir. 
Bildiğimiz üzere, bilgisayar 2’lik 
(binary) sayılarla işler. O zaman bir 
10’Iuk tabandaki sayıyı çevirmesi 
gerekir. Bu durum matematik 
derslerinde taban değiştirme olarak da 
daha önce karşımıza çıkmıştır. Burada 
girilen 10’luk tabandaki sayı 2’ye 
böldürülüp kalanı 10’nun katlarına 
sırasıyla (0 dan itibaren) çarptırılıp bir 
değişkende toplanmıştır. Aslında bu 
soruyu dizi mantığıyla yapmak daha 
kolaydır fakat burada bir kandırmaca 
yaparak soruyu çözüyoruz. Buna göre 
topladığımız sayılar yine 10’luk 
sistem olmasına rağmen ekrana 
basınca ikilik gibi duracaktır. 
Algoritma, matematik ve bilgisayar 
programcılığı böyle bir şeydir. 


Ekran Çıktısı: 


'.J0M6 I ° i B IUgirf 


Dedmai Sayı 

: 12 

Binary Karşlığıı : 1100 

Hesapla 



Akış Diyagramı: 
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C Kodu: 


#include <stdio.h> 

#include <stdlib.h> 

int main(iııt argc, char *argv[]) 

{ 

int sayi,i=0,top=0; 
printfÇ’ Bir sayı giriniz: "); 
scanfl["%d",&sayi); 
while(sayi>p) 

{ 

top=top+(sayi%2)*pow( 10,i); 

sayi=sayi/2; 

i++; 

> 

sayi=sayi/2; 

top=top+sayi*pow( 10,i); 
printf("binary values: %d",top); 
system("PAUSE"); 
retum 0; 

} 


C# Kodu: 


using System; 
namespace dmg 
{ 

class Program 

{ 

static void Main(string[] args) 

{ 

int şayi; 
int i =0; 
double top = 0; 

Console.Write("Sayıyı giriniz = "); 
şayi = Convert.ToInı32(Console.ReadLine()); 
while (şayi >2) 

{ 

top = top + (şayi % 2) * Math.Pow(10, i); 
şayi = şayi / 2; 
i++; 

} 

top = top + sayi/2 * Math.Pow( 10, i); 
Coıısole.Write("Binary values = " + top); 
Console.ReadLine(); 

} 


1 


> 


Vb.Net Kodu: 


Public Class Forml 

Private Sub Buttonl_Click(sender As System.Object. e As System.EventArgs) Handles 
Buttonl.Click 

Dim i = 0, top = 0, şayi As Integer 
şayi = CInt(TextBoxl.Text) 

While (şayi > 2) 

top = top + (şayi Mod 2) * (10 A i) 
şayi = şayi / 2 
i = i + 1 
End While 
şayi = şayi / 2 
top = top + şayi * (10 A i) 

TextBox2.Text = top 
End Sub 
End Class 


Java Kodu: 


importjava.util.Random; 
import java.util.Scanner; 
public class Soru25 { 

public static void main(String[] args){ 
int şayi, i=0; 
double top=0; 

Scanner oku=new Scanner(System.in); 
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sayi=oku.nextInt(); 

while(sayi>2) 

{ 

top=top+(sayi%2)*Math.pow( 10,i); 
sayi=sayi/2; 

İ++; 

} 

sayi=sayi/2; 

top=top+sayi*Math.pow( 10,i); 

System.out.print("Binary Karşılığı="+top); 

> 
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26. Binary olarak girilen sayıyı decinıal sayıya çeviren programın 
algoritma ve akış diyagramını oluşturunuz. 


Algoritma: 

1. Başla 

2. sayi(binary),sayac=0 ,top=0,bas 
değişkenlerini al 

3. şayi değerini gir 

4. Eğer sayi>9 ise devam et, 
değilse 7’e git 

5. bas=sayi% 10,sayi=sayi/10 işlemini 
yap 

6. top=top + (2 A sayac),sayac++ 4’e 
git 

7. top=top+(2 A sayac) işlemini yap 

8. Yazdır top 

9. Bitir 

Açıklama: 

Bu soruda bir önceki sorunun tersini 
yapmamız gerekmektedir. Bu sefer 
de ikilik düzende verilen 1 ve 0 
(bitlerden) dan oluşan bir ikilik sayıyı 
lO’luk tabana çevireceğiz. Bunun 
için 2’lik sayının birler basamağından 
başlayarak en büyük basamağına 
kadar sayıları 10’nun katları ile 
çarpıp (0 dan başlamak koşulu ile) bir 
değişkende toplayacağız. Sonra bunu 
ekrana basacağız. Bu soruyu 
çözerken Soru 25'deki basamaklara 
ayırma metodunu kullanacağız. 


Ekran Çıktısı: 

oJ DMG [ ı=ı | lal J m&d 

Decimal Sayı : 101 

Binary Karşriığn : 5 

Hesapla 


Akış Diyagramı: 
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C Kodu: 

C#Kodu : 

#include <stdio.h> 

using System; 

»incinde <stdlib.h> 

namespace dmg 

im main(int argc, char *argv[]) 

{ 

{ 

class Program 

int sayi,sayac=0,top-0,bas; 

{ 

printlt” Bir sayı giriniz"); 

static void Main(string[] args) 

scanf(”%d",&sayi); 

{ 

whilc(sayi>9) 

int şayi; 

( 

int sayaç = 0; 

bas=sayi% 10; 

double top = 0; 

sayi=sayi/10; 

int bas; 

top=top+bas*pow(2,sayac); 

Console.Write("Sayıyı giriniz = "); 

sayac++; 

şayi = 

} 

Convert.ToInt32(Console.ReadLine()); 

top=top+sayi *pow(2,sayac); 

while (şayi > 9) 

printtV'decimal value %d",top); 

f 

system("PAUSE"); 

bas = şayi % 10; 

retum 0; 

şayi = şayi / 10; 

} 

top = top + bas * Math.Pow(2, sayaç); 
sayac++; 

> 

top = top + şayi * Math.Pow(2, sayaç); 


Console.Write("Decimal value = " + 


top); 

Console. ReadLine(); 

} 

} 

Vb.Net Kodu: 


Public Class Form 1 


Private Sub Buttonl_Click(sender As System.Object, e As System.EventArgs) Handles 

Buttonl.Click 


Dim i = 0, top = 0, şayi, sayaç, bas As Integer 

şayi = CInt(TextBoxl.Text) 

While (şayi > 9) 


bas = şayi Mod 10 

şayi = şayi / 10 

top = top + bas * (2 A sayaç) 

sayaç = sayaç + 1 


End VVhiie 


top = top + şayi * (2 A sayaç) 
TextBox2.Text = top 


End Sub 

End Class 


Java Kodu: 


İmport java.util.Random; 
import java.util.Scanner; 
public cte^oru26{ 
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27. Girilen yılın artık yıl olup olmadığını bulan programın algoritma ve 
akış diyagramını oluşturunuz. 

Algoritma: Ekran Çıktısı: 


1. Başla 

2. yıl değişkenini al. 

3. yıl değerini gir 

4. Eğer yıl %4=0 ise yazdır 

“artık yıldır”, değilse yazdır “artık yıl 
değildir” 

5. Bitir 

Açıklama: 


a y DMG 


Yılı Giriniz : 2011 


!■<=?. 

_ ■ 


Hesapla artik yil değildir 


Akış Diyagramı: 


Dünyamız güneş çevresindeki 
dolananını 365 gün 6 saatte tamamlar. 
Her yıl 365 günden artan 6 saatler 4 
yılda bir 24 saat, yani 1 gün eder. Bu 
bir gün 4 yılda bir Şubat ayına eklenir. 
Böylelikle, 28 gün olan Şubat ayı 4 
yılda bir 29 gün olur. Buna artık yıl 
denir. 4’le bölünebilen yıllar artık 
yıldır. İşte girilen sayının artık yılı olup 
olmadığını bulacağımız bu soru aslında 
basit bir sorudur. Sadece bir eğer ile 
işlemimizi tamamlayabiliriz. Bunun 
için ekrana sonuca göre mesajımızı 
yazdırırız. Artık yıl, girilen yılı 4’e 
bölerek elde edilir. Sonuçta kalan 0 ise 
bu yıl artık yıldır, değilse artık yıl 
değildir, denilir ve program bitirilir. 
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C Kodu: 

C# Kodu: 

#include <stdio.h> 

#include <stdlib.h> 

using System; 

int main(int argc, char *argv[J) 

namespace dmg 
{ 

{ 

class Program 

int yil; 

{ 

printf("yili giriniz: "); 

static void Main(string[] args) 

scanft"%d",&yil); 

{ 

i fi fmodfyi l,4)=0) 

int yil; 

printfC'artik yildir"); 

Console.Write("YıIı giriniz = "); 

else 

yii = 

printfi"artik yil değildir"); 

Convert.ToInt32(Console.ReadLine()); 

system("PAUSE"); 

if ((yil % 4) = 0) 

retum 0; 

{ 

) 

Console.Write("Artik yildir"); 

} 

else 

{ 

Console.Write(''Artik yıl değildir"); 

> 

Console.ReadLine(); 

} 

) 

Vb.Net Kodu: 


Public Class Forml 


Private Sub Buttonl_Click(sender As System.Object, e As System.EventArgs) Handles 

Button 1 .Click 


Di m yil As Integer 
yil = TextBox 1 .Text 

If (yil Mod 4 = 0) Then 

Label4.Text = "artik yildir" 

Else 


Label4.Text = "artik yil değildir" 


End If 

End Sub 


End Class 


.lava Kodu: 


import java.util.Scanner; 
public class Soru27 { 


public static void main(String[] args){ 

int yil; 


Scanner oku=new Scanner(System.in); 

System.out.print("Yılı giriniz="); 

yil=oku.nextInt(); 

if((yil%4)=0) 


System.out.print("Artık yıldır."); 

else 


System.out.print("Artık yıl değildir."); 

} 

} 
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28. Boyu ile kilosu girilen kişinin şişman mı, zayıf mı yoksa ideal kiloda 
mı olduğunu gösteren programın algoritma ve akış diyagramını 
oluşturunuz. 


Algoritma: 

1. Başla 

2. Kilo ,boy değişkenlerini al 

3. Kilo, boy değerini gir 

4. boy=boy%100 

5. Eğer boy-kilo >11 ise 8’ye git 
değilse devam 

6. Eğer boy-kilo = 11 ise 9’a git 
değilse devam et 

7. Eğer boy-kilo <11 ise 10’a git 
değilse devam et 

8. Yazdır kilo alman gerek ve 1 l'e git 

9. Yazdır İdeal kilo 1 l'e git 

10. Yazdır kilo vermen gerek 

11. Bitir 

Açıklama: 

Bu soru da if (eğer)’in çok kullanıldığı 
bir sorudur. Excel’de çok 
kullandığımız bu uygulama eğer 
(karar) yapısını öğrenmek için 
önemlidir. Standartlara göre bir kişinin 
boyu ve kilosu arası 11 ise kişi ideal 
konumdadır. 11 ’den büyük veya küçük 
olduğu durumlar için ekrana sonuçlar 
basılır. Bu durumda 3 şıkkımız olduğu 
için 3-1 yani 2 eğer kullanmamız 
gerekmektedir. 

Ekran Çıktısı: 


Akış Diyagramı: 



• DMG 

Boyunuzu Giriniz 
Kilonuzu Giriniz : 




182 

92 


H«apla 


Sonuç : k4o vermeniz gerek 
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C Kodu: 

C# Kodu: 

#include <stdio.h> 
tfinclude <stdlib.h> 

using System; 
namespace dnıg 
{ 

class Program 

static void Main(string|] args) 

int main(int argc, char *argv[]) 

{ 

int kilo.boy; 

printf("kilonuzu giriniz: "); 

{ 

scanfl["%d",&kilo); 

int kilo, boy; 

printf("boyunuzu giriniz: "); 

Console.Write("Kilonuzu giriniz = "); 

scanfı("%d",&boy); 

kilo=Convert.To!nt32(Console.ReadLine0); 

boy=boy%IOO; 

Console.Write("Boyunuzu giriniz = "); 

iRboy-kilo>l 1) 

boy=Convert.Tolnt32(Console.ReadLine()); 

printffkilo almaniz gerek”); 
else 
{ 

i fîboy-ki lo= 11) 

boy = boy % 100; 
if(boy - kilo > 11) 

{ 

Console.Write("Kilo almaniz gerek"); 

printfi["kilonuz ideal"); 

( 

else 

if(boy - kilo = 11) 

printff'kilo vermeniz gerek"); 

1 { 

} 

system("PAUSE"); 
retum 0; 

} 

Console.Write("Kilonuz ideal"); 

> 

else 

{ 

Console.Write("Kilo vermeniz gerek"); 

} 

Console. ReadLineO; 

} 

} 

} 


Vb.Net Kodu: 


Public Class Forml 


Private Sub Buttonl_Click(sender As System.Object, e As System.EventArgs) llandles 

Buttonl.Click 


Dim kilo, boy As lnteger 
boy = TextBox 1 .Text 
kilo = TextBox2.Text 
boy = boy Mod 100 

If (boy - kilo > 11) Then 


l^bei4.Text = "kilo almaniz gerek" 

Elself (boy - kilo = 11) Then 
Label4.Text = "kilonuz ideal " 
Else 


Labe!4.Text = "kilo vermeniz gerek" 

Endlf 

End Sub 


End Class 


Java Kodu: 


import java.util.Scanner; 
public das^o™28^ 
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public static void main(String[] args){ 
int boy,kilo; 

Scanner oku=new Scanner(System.in); 
System.out.print("Kilonuzu giriniz="); 
kilo=oku.nextlnt0; 

System.ouLprintC’Boyunuzu giriniz=”); 

boy=oku.nextInt(); 

boy=boy%IOO; 

ifl[boy-kilo>l I) 

System.out.print("Kilo almalısınız"); 
else if(boy-kilo<-l 1) 

System.ouLprint(”Kilo vermeniz gerek."); 

else 

System.oul.print("Kilonuz ideal."); 

i_ 
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29. Dairenin alanını ve çevresini bulan programın algoritma ve akış 
diyagramını oluşturunuz. 

Algoritma: Akış Diyagramı: 


1. Başla 

2. pi =3.14,alan,çevre 

3. r değerini gir 

4. Alan=pi*r A 2 

5. Çevre=2*pi*r 

6. Yazdır çevre , alan 

7. Bitir 
Açıklama: 

Bu soruda sadece formülü bilmek 
yeterli olacaktır. Algoritma, klasik bir 
matematik problemi olarak karşımıza 
çıkmıştır. Dairenin alanında 
kullandığımız yarıçap ve pi değerini 
bilirsek, bunu formülde yerine koyup 
ekrana basmamız yeterli olacaktır. 
Formülü bilinen denklemler için 
program yazmak artık sizin için 
kolaylaşacaktır. 



Ekran Çıktısı: 





Yan çapı Giriniz 20 

Dairenin Çevresi : 125.6 

Dairenin AJam 1256 

Hesapla 
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C Kodu: 


#include <stdio.h> 

#include <stdlib.h> 

int main(int argc, char *argv[]) 
{ 

int r; 

float alan,cevre,pi=3.14; 
printfC'yaricapi giriniz:"); 
scanf("%d",&r); 
alan=pi*pow(r,2); 
cevre=2*pi*r; 

printfî"Dairenin cevresi:%f\n 
Dairenin alani:%f ".çevre,alan); 
system("PAUSE"); 
retum 0; 

} 


C# Kodu: 

using System; 

namespace dmg 

{ 

class Program 

{ 

static void Main(string[] args) 

{ 

int r; 

double alan, çevre, pi = 3.14; 
Console.Write("Yançapı giriniz = "); 

r = Convert.ToInt32(Conso!e.ReadLine()); 

alan = pi * Math.Pow(r, 2); 
çevre = 2 * pi * r; 

Console.Write("Dairenin çevresi = " + çevre + " Alanı 
= " + alan); 


} 


Console.ReadLine(); 


Vb. Net Kodu: 


Public Class FormI 

Pnvate Sub Buttonl_Click(sender As System.Object, e As System.EventArgs) Handles 
Buttonl.Click 

Dim r As Integer 
r = Clnt(TextBox 1 .Text) 

Dim pi =3.14, çevre As Double 
Dim alan As Double 
alan = pi * r * r 
Label4.Text = alan 
çevre = 2 * pi * r 
Labcl5.Text = çevre 
End Sub 
End Class 


Java Kodu: 


import java.util.Scanner; 
public class Soru29{ 

public static void main(String{] args){ 
int r; 

double alan, çevre, pi=3.14; 

Scanner oku=new Scanner(System.in); 
System.out.printC'Yançapı giriniz="); 

r=oku.nextlntO; 

alan=pi*Math.pow(r,2); 

cevre=2*pi*r; 

System.out.print("Dairenin cevre="+cevre+" Alanı="+alan); 
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30. 10-50 arasındaki asal sayıları gösteren programın algoritma akış 
diyagramını oluşturunuz. 

Algoritma: 


1. Başla 

2. say i= 10 

3. sayi++ 

4. Eğer sayi<=50 ise devam et,değilse 
10’a git 

5. Eğer sayi%2=0 3. adıma git,değilse 
devam et 

ö.Eğer sayi%3=0 3. adıma git,değilse 
devam et 

7. Eğer sayi%5=0 3. adıma git,değilse 
devam et 

8. Eğer sayi%7=0 3. adıma git,değilse 
devam et 

9. Yazdır şayi, 3’e git 

10. Bitir 


Akış Diyagramı: 


Açıklama: 

10 ile 50 arasındaki sayılar dediği için 
hemen aklımıza döngü gelmelidir. 
Program 1=10 dan başlayacak. Bundan 
sonra 1=10 den başlayarak 50’ye kadar 
devamlı 2,3,5,7 sayılarına böldürüp 
kalana bakılmaktadır. Sayı, 4 değere 
bölünce de kalan 0 çıkmıyorsa sayı 
asaldır. Bu sayıları i=50 değerini 
alıncaya kadar şartımıza uyan sayıları 
ekrana basıp programı sonlandırırız. 

Ekran Çıktısı: 

DMG 

10-50 arası asal sayılar : 

11 13 17 19 23 29 31 37 41 43 47 
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C Kodu: 

#include <stdio.h> 
tfinclude <stdlib.h> 
int main(int argc, char *argv[]) 
{ 

int şayi; 

for(sayi=l 0;sayi<=50;sayi-H-) 

{ 

ifl[(sayi%2)!=0) 

{ 

ifl[(sayi%3)!=0) 

{ 

it{(sayi%5)!=0) 

{ 

if((sayi%7)!=0) 

printfÇ’%4d",sayi); 

} 


} 


} 

} 

system("PAUSE”); 
retum 0; 


C # Kodu: 


using System; 

namespace dmg 

< 

class Program 

{ 

static void Main(string(] args) 

{ 

int şayi; 

for (şayi = 10; şayi <=50; sayi++) 

{ 

if ((şayi %2) != 0) 

if ((şayi % 3) != 0) 

< 

if ((şayi % 5) != 0) 

{ 

if ((şayi % 7) != 0) 
Console.VVriteLine(sayi); 

} 


> 


Console.ReadLineO; 


Vb.Net Kodu : 


Public Class Form 1 

Private Sub Form 1 Load(sender As System.Object, e As System.EventArgs) Handles 
MyBase.Load 

Dim şayi As Integer 
For şayi = 10 To 50 
If ((şayi Mod 2) o 0) Then 
İf ((şayi Mod 3) o 0) Then 
İf ((şayi Mod 5) o 0) Then 
İf ((şayi Mod 7) o 0) Then 
Label4.Text = Label4.Text & " " & şayi 
End If 
End If 
End If 
End If 
Next 
End Sub 
End Class 
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31. 1-100 arasında kaç asal sayı vardır gösteren programın algoritma 
akış diyagramını oluşturunuz. 

Algoritma: 


1 .Başla 

2. sayi=8,adet=4 

3. sayi++ işlemini yap 

4. Eğer sayi<=100 ise devam et,değilse 
10’a git 

5. Eğer sayi%2=0 3. adıma git.değilse 
devam et 

6. Eğer sayi%3=0 3. adıma git.değilse 
devam et 

7. Eğer sayi%5=0 3. adıma git.değilse 
devam et 

8. Eğer sayi%7=0 3. adıma git,değilse 
devam et 

9. adet++ 3’e git 

10. Yazdır adet 

11. Bitir 


Açıklama: 

Bu soruda da 1 ile 100 arasındaki sayılar 
dediği için hemen aklımıza döngü 
gelecektir. Ancak burada i değişkeni 8’ 
den başlamalıdır. Çünkü 2,3,5,7 değerleri 
asaldır. Buna göre program i=8’den 
başlamalıdır. Bundan sonra i=8’den 
başlayarak 100’e kadar devamlı 2,3,5,7 
sayılarına böldürüp kalana bakarız. i= 100 
değerini alınca 100’de baktırıp adet 
değişkenini ekrana bastırarak programı 
sonlandırmalıyız. Bir önceki soruyla 
mantık aynıdır fakat istenen sonuç 
farklıdır. 

Ekran Çıktısı: 



Akış Diyagramı: 
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C Kodu: 

C #Kodu: 

#include <stdio.h> 

using System; 

tfinclude <stdlib.h> 

namespace dmg 

int main(irıt argc, char *argv[]) 

{ 

{ 

class Program 

int sayi,adet=4; 

{ 

for(sayi~8;sayi<=l 00;sayi++) 

static void Main(string[] args) 

{ 

{ 

ift(sayi%2)!=0) 

1 

int şayi, adet = 4; 

for (şayi = 8; şayi <= 100; sayi++) 

i f((sayi%3)!=0) 

{ 

{ 

if ((şayi % 2) != 0) 

if((sayi%5)!=0) 

{ 

{ 

i f ((şayi % 3) != 0) 

it((sayi%7)!=0) 

: { 

adet++; 

if ((şayi % 5) != 0) 

} 

! { 

} 

if ((şayi % 7 ) != 0) 

} 

adet++; 

} 

} 

print(\"adet= %d”,adet); 

} 

system("PAUSE”); 
retum 0; 

} 

: } 

} 

Console.Write("Adet = " + adet); 

Console.ReadLine(); 

> 

} 

> 

Vh.Net Kodu : 


Public Class Fortnl 


Private Sub Form 1 _Load(sender As System.Object, e As System.EvenlArgs) Handles 

MyBase.Load 


Di m say = 4, şayi As Integer 

For şayi = 10 To 100 


If ((şayi Mod 2) o 0) Then 


If ((şayi Mod 3) o 0) Then 


If ((şayi Mod 5) o 0) Then 


If ((şayi Mod 7) o 0) Then 

say = say + I 

End If 


End If 


End If 


End If 

Next 

Label3.Text = say 


End Sub 

End Class 
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32. ax2 + bx +c = 0 tipindeki bir denklemin köklerini bulan programın 
algoritma ve akış diyagramını oluşturunuz. 

Algoritma: Ekran Çıktısı: 


1. Başla 

2. a,b,c,x,y,delta=0 değişkenlerini al 

3. a,b,c değerlerini gir 

4. delta=b A 2-(4*a*c) 

5. Eğer delta=0 ise devam et, 
değilse 7'ye git 

6. x=-b/2*a 10’a git 

7. Eğer delta<0 ise yazdır “reel kök 
yok” 1 l'e git, değilse devam et 

8. x=(-b -(delta A ('/i))) / (2*a), y=(- 
b +(delta A (’/z))) / (2*a) 

9. Yazdır “iki kök var”,x,y 1 l'e git 

10. Yazdır “tek kök var”,x 

11. Bitir 
Açıklama: 

ax A 2+bx+c tipindeki bir denklem 
için a,b,c değerlerini dışardan 
girerek Delta değerimizi hesaplarız. 
Delta değerimizin 0 veya O’dan 
küçük ya da büyük olma durumuna 
göre de denklemin kökleri 
bulunmaktadır. Direkt matematik 
ve iki bilinmeyenli bir denklem 
formülüne değerler 

uygulanmaktadır. Bu işlemi sadece 
Delta’yı karşılaştırmak için 
kullanırız. 


r OJ DMG i ° İ B 


a : 2 

b : i c : 2 


Hesapla 

Tek kök var = -1 




Akış Diyagramı: 
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C Kodu: 

C# Kodu: 

#include <stdio.h> 

using System; 

flinclude <stdlib.h> 

namespace dmg 

int main(int argc, char *argv[J) 

{ 

{ 

class Program 

int a,b,c,delta; 

{ 

float x,y; 

static void Main(string(] arus) 

printfC'Değerleri Giriniz 

{ 

scanfl"%d%d%d",&a,&b,&c); 

int a=0; 

delta=(b* b)-(4*a*c); 

int b=0; 

if(delta=0) 

int c=0; 

{ 

int delta = 0; 

x=(-by(2*a); 

double x, y; 

printf("Tek kök var = %f ”,x); 

a = Convert.ToInt32(Console.ReadLine()); 

} 

b = Convert.Tolnt32(Console.ReadLine()); 

else 

c = Convert.ToInt32(Console.ReadLine()); 

{ 

delta = (b * b) - (4 * a * c); 

if(delta<0) 

if (delta = 0) 

printf("reel kok yok”); 

{ 

else 

x = (-b) / (2 * a); 

- { 

Console.Write("Tek kök var = " + x); 

x=(-b-(sqrt(de!ta))/(2*a)); 

} 

y=(-b+(sqrt(delta))/(2*a)); 

else 

printff'iki kok var xl=%f 
x2=%f',x,y); 

} 

} 

{ 

if(delta<0) 

{ 

Console.Write("reel kok yok"); 

system( "PAUSE"); 

} 

retum 0; 

else 

} 

{ 


x = (-b - (Math.Sqrt(delta)) / ( 2 * a)); 
y = (-b + (Math.Sqrt(delta)) / (2 * a)); 


Console.Write("iki kok var " + x + " , n + y); 

> 


} 

Console. ReadLineO; 

> 

} 

} 

Vb.Net Kodıı: 


Imports System.Math 

Public Class Forml 


Private Sub Buttonl_Click(sender As System.Object, e As System.EventArgs) Handles 

Buttonl.Click 


Dim a, b, c, delta As Integer 

Dim x, y As Double 
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a = TextBoxl.Text 
b = TextBox2.Text 
c = TextBox3.Text 
delta = (b * b) - (4 * a * c) 

If (delta = 0) Then 
x = (-b)/(2*a) 

Label3.Text = "Tek kök var = " & "" & x 

Else 

If (delta < 0) Then 

Label3.Text = "reel kok yok" 

Else 

x = (-b - (sqrt(delta)) / (2 * a)) 
y = (-b + (sqrt(delta)) / (2 * a)) 

Label3.Text = "iki kok var xl=” & x & " x2=" & y 

End If 

End If 

End Sub 

End Class 


Java Kodu: 

import java.util.Scanner; 
public class Soru32{ 

public static void main(String[] args){ 
int a=0,b=0,c=0,delta=0; 
double x,y; 

Scanner oku=new Scanner(System.in); 

System.out.print("a="); 
a=oku.nextInt(); 

System.out.print("b=”); 

b=oku.nextInt(); 

System.out.print("c="); 

c=oku.nextInt(); 

delta=(b*b)-(4*a*c); 

if(delta=0) 

{ 

x=(-b)/(2*a); 

System.out.print("Tek kök vardır="+x); 

} 

else if(delta<0) 

{ 

System.out.print("real kök yoktur"); 

} 

else 

{ 

x=(-b-(Math.sqrt(delta)))/(2*a); 

y=(-b+(Math.sqrt(delta)))/(2*a); 

System.out.print("lki kök vardır="+x+" ,"+y); 

> 

} 

} 
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33. Girilen sayının smith sayısı olup olmadığını bulan programın 
algoritma ve akış diyagramını oluşturunuz. 

Algoritma : 


I .Başla 

2. sayi,x,top=0,top 1 =0,i=2 

3. şayi değerini gir. 

4. x=sayi 

5. top=top+(sayi% 10),sayi=sayi/10 

6. Eğer sayi<10 ise top=top+sayi, 
değilse 5'e git 

7. Eğer x%i=0 ise devam et, 
değilse i++ 7'ye git 

8. Eğer (i=2 || i=3 || i=5 || i=7) ise 
topl=topl+i, x=x/i, 

değilse devam et 

9. top 1 =top 1 +(i% 10),i=i/10 

10. Eğer i<10 ise devam et, 
değilse 9'a git 

II .x=x/i 

12. Eğer x=l ise devam et, 
değilse 7'ye git 

13. Eğer topl=top ise yazdır “smith”, 
değilse yazdır “smith değil” 

14. Bitir 

Açıklama: 

l’den büyük asal olmayan bir tam 
sayının rakamlarının toplamı, sayı, asal 
çarpanlarına ayrılarak yazıldığında bu 
yazılışta bulunan tüm asal çarpanların 
rakamlarının toplamına eşit oluyorsa 
bu tür sayılara Smith sayısı denir. 

121 = 11*11 
1+2+1 = l+l+l+l 
4 = 4 (121 bir Smith sayısıdır.) 

166 = 2 *83 
1+6 + 6 =2 + 8 + 3 

13=13 (166 bir Smith sayısıdır.) 


1982 yılında matematikçi Albert 
Wilansky, kardeşi Smith’i ararken onun 
telefon numarasının (4937775) bu 
ilginç özelliğini fark etmiş. Bundan 
dolayı da bu sayılara Smith sayıları 
adını vermiştir. 

Bu sayıyı da inceleyelim; 

4937775 = 3 * 5 * 5* 65837 
4+9+3+7+7+7+S 
3+5+5+6+5+8+3+7 
42 = 42 (4937775 bir Smith sayısıdır.) 

Ekran Çıktısı: 
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Akış Diyagramı: 



^ Brtif ^ 
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C Kodu: 

tfinclude <stdio.h> 

#include <conio.h> 

int sayi,x,i=2,top=0,topl=0,y; 

nıain() 

{ 

clrscr(); 

scanfT%d",&sayi); 

x=sayi; 

while(sayi>IO) 

{ 

top=top+sayi%10; 

sayi=sayi/10; 

C#Kodu: 

using System; 
namespace dmg 
{ 

class Program 
{ 

static void Main(string[] args) 

{ 

im şayi, x, i = 2, top = 0, top] = 0, y; 
Console.Write("Sayıyı Giriniz = "); 
şayi = Convert.ToInt32(ConsoIe.ReadLine()); 
x = şayi; 
vvhile (şayi > 10) 

} 

top=top+sayi; 

while(x>l) 

{ 

ifl(x%i)=0) 

{ 

top = top + şayi % 10; şayi = şayi / 10; 

} 

top = top + şayi; 
while (x > 1) 

{ 

if(i=2|l i—3 || İ—S || i=7) 

{ 

topl=top]+i; 

x=x/i; 

} 

else 

i 

y=î; 

while(y>IO) 

{ 

topl=topl+y%IO; 

y=y/10; 

} 

{ 

if((x%i) = 0) 

{ 

if (i = 2 || i = 3 || i = 5 || i = 7) 

{ 

topl=topl+i; x = x/i; 

} 

else 

i { 

y = i; 

vvhile (y> 10) 

{ 

top 1 = top 1 + y % 10; y = y / 10; 

topl=topI+y; 

x=x/i; 

> 

/ 

topl =topl +y; 
x = x / i; 

} 

} 

else 

İ++; 

) 

else 

i++; 

> 

if(top=topl) 

printf("Smith"); 

else 

printf("smith değil"); 
getch(); 

} 

} 

if(top = topl) 

Console.Write("Smith"); 

else 

Console.Write("smith değil"); 
ConsoIe.ReadLine(); 

} 

} 
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Vb.Net Kodu: 

Imports System.Math 
Public Class Form I 

Private Sub Buttonl_Click(sender As System.Object, e As System.EventArgs) Handles 
Buttonl.Click 

Dim şayi, x As Integer 

Dim i = 2, top = 0, topl = 0, y As Inleger 

şayi = TextBoxI.Text 

x = şayi 

While(sayi > 10) 
top = top + şayi Mod 10 
şayi =sayi / 10 
End While 
top = top + şayi 
VVhile (x > 1) 
lf((x Mod i) = 0) Then 

If (i = 2 Or i = 3 Or i = 5 Or i = 7) Then 
topl =topl + i 
x = x/i 
Else 
y = i 

While (y > 10) 
topl =topl +y Mod 10 
y = y / 10 
End While 
topl =topl + y 
x = x / i 
End If 
Else 
i=i+ 1 
End If 
end vvhile 

lf (top = topl) Then 
Label6.Text = "Smith Sayısıdır" 

Else 

Label6.Text = "smith sayısı değildir." 

End If 
End Sub 

End Class _ 

■lava Kodu: 


import java.util.Scanner; 
public class Soru33 { 

public static void main(String[] args){ 
int sayi,x,i=2,top=0,topl=0,y; 

Scanner oku=new Scanner(System.in); 
System.out.print("Sayıyı giriniz="); 
sayi=oku.next!nt(); 
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34. 1 ile 10 arasındaki tam sayıların karelerinin toplamını bulan 
programın algoritma ve akış diyagramını oluşturunuz. 

Algoritma: Akl ? Diyagramı: 


1. Başla 

2. i=2,top= 1 değişkenlerini al 

3. top=top+(i A 2) işlemini yap 

4. Eğer i=10 ise 6’ya git 

5. i=i+l, 3’e git 

6. Yazdır toplam 

7. Bitir 

Açıklama: 

Bu soruda döngü olduğunu artık herkes 
anlamış olmalı çünkü 1 ile 10 arasında 
bir seri söz konusu. Top değişkenini 1 
almak zorundayız. Çünkü toplama 
işleminde 0, çarpım işlemlerinde 
sayıları biriktireceğimiz değişkeni 1 
almalıyız. Döngü kullanıyorsak %80 
ihtimalle i diye bir değişkeni sayaç 
olarak kullanırız. Bu soruda öyle i=2 
den başlayarak 10 olana kadar sayıların 
kareleri alınıp birbiriyle toplanarak top 
değişkenin içine atılır ve sonunda 
toplam ekrana basılır. 



Ekran Çıktısı: 

' 4 dmg 


Toplam : £23 
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C Kodu: 

Ot Kodu: 

#include <stdio.h> 

#include <conio.h> 

using System; 

#include <math.h> 
main() 

namespace dmg 
{ 

{ 

class Program 

int i; 

{ 

long top= 1; 

static void Main(string[] args) 

for(i=l;i<=10;i-H-) 

{ 

{ 

int i; 

top=top+pow(i,2); 

long top= 1; 

} 

for (i = 1; i <= 10; i++) 

printf|"toplam= %ld".top); 

{ 

getch(); 

top= top+ Convert.ToInt64(Math.Pow(i, 2)); 

> 

> 

Console.Write("Toplam= " + top); 


Console. Read Li ne(); 

} 

} 

> 

Vb.Net Kodu: 

Public Class Form I 


Private Sub Forml Load(sender As System.Object, e As System.EventArgs) Handles 

MyBase.Load 


Di m i As Integer 

Dim top As Long 


carpim = 1 

For i = 1 To 10 
top = top + (i * i) 

Next 


TextBox 1 .Text = carpim 

End Sub 


End Class 


Java Kodu: 


import java.util.Scanner; 
public class Soru34{ 


public static void main(String[] args){ 

int i; 

doubletop=l; 

for(i=l;i<=I0;i++) 


top=top+Math.pow(i,2); 

System.out.print("TopIam="+top); 

} 

> 
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35. Girilen sayının yaklaşık olarak karekökünü hesaplayan programın 
algoritma ve akış diyagramını oluşturunuz. 

Algoritma: 

1 .Başla 

2. x,a,b,i=2 değişkenleri al. 

3. x değerini gir 

4. Eğer (i*i)>a ise b=i*i,a=(i-l)(i-l), 
değilse i++ 4'e git 

5. x=(i-l )+((x-a)/(b-x)) 

6. Yazdır x 

7. Bitir 
Açıklama: 

Bu soru, ÖSYM’nin yaptığı ALES 
sınavının birinde bir yaklaşım sorusu 
olarak karşımıza çıkmıştır. Bu 
yaklaşımı kendimize göre ayarlayıp, 
soruyu da kitaba ekledik. Bu soruda, 
girilen tam kare olmayan sayının 
yaklaşık olarak değerini hesaplayan 
algoritma söz konusudur. Burada amaç 
a<x<b mantığına göre değişir. x girilen 
sayımız, a da x’ten küçük en yakın tam 
karesi olan sayı, b ise x’ten büyük en 
yakın tam karesi olan sayıdır. Bu 
değerleri algoritma bulacak ona göre 
formüle yerleştirip bize float yani 
ondalıklı sayı olarak sonuç verecektir. 


Ekran Çıktısı: 



Akış Diyagramı: 
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C Kodu: 

# inci ııde <stdio.h> 

#include <stdlib.h> 
int main(int argc, char *argv[]) 
< 

float a,b,i=l; 
float x; 

scanfT%f'.&x); 

dnz: 

ifl[(i*i)>x) 

{ 

b=i*i; 

a=(i-l)*(i-l); 

} 

else 

{ 

İ++; 

I goto dnz; 

} 

x= Ki-1 )+((x-a)/(b-x)); 

| printf("%f , ,x); 
system("PAUSE"); 
retum 0; 

1 } 


C # Kodu : 


using System; 
namespace dmg 
{ 

class Program 

{ 

static void Main(string[] args) 

{ 

double a, b, i=l; 
double x; 

Console.Write("Sayıyı giriniz = "); 
x = Convert.ToDouble(Console.ReadLine()); 

dnz: 

if (i * i > X) 

{ 

b = i * i; a = (i - I) * (i - |); 

} 

else 

{ 

i++; goto dnz; 

} 

* = ('- !) + ((x-a)/(b-x)); 
Console.Write(x); 

Console. ReadLi ne(); 


} 


Vb.Net Kodu: 

I Public Class Forml 

Prıvate Sub Button l_Click(sender As System.Object, e As System.EventArgs) Handles 
| ButtonI.Click 

Dim a, b, i=l As Integer 
Dim x As Double 
x = CInt(TextBox!.Text) 

I dnz: 

If((i * i) > x) Then 
b = i ♦ i 

a = (i -1) * (i - 1) 

Else 
i = i + I 
GoTo dnz 
Endlf 

x = (i - l) + ((x-a)/(b-x)) 

TextBox2.Text = x 
End Sub 
[ End Class 


Java Kodu: 
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36. Dışandan iki kenan ve aradaki açısı girilen üçgenin alanını 

hesaplayan programın algoritma ve akış diyagramını oluşturunuz. 

Alan = I /2 a b - sin(a) 

Algoritma: 

1 .Başla 

2. a,b,aci, alan değişkenlerini al. 

3. a,b,aci değerlerini gir. 

4. alan=(a*b*sin(aci))/2 

5. yazdır alan 

6. Bitir 


Ekran Çıktısı: 


a- DMG 


0 


a kenarım griniz : 

2 


Hesapla 

b kenarını girmiz : 

3 



Açı değerim giriniz : 

60 



Alan Değeri -0.91^43186330665 


Açıklama: 

Geometri problemi gibi görülse de 
başlangıç için tekrarlanan sorulardan 
biri de bu sorudur. Burada da girilen 
değerleri formülde kullanıp sonucu 
ekrana yazdırıyoruz. Ancak bu 
örnekteki en önemli unsur sadece C 
dilinde bunu kodlarken sin fonksiyonu 
kullanmamız gerektiğidir. Bunun için 
de math.h kütüphanesini programa 

include ile dahil edilmiştir. O Her 

programlama dilinde farklı 
kütüphanler olabilir ve farklı 
komutlar içerirler. 


Akış diyagramı: 
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C Kodu: 


C# Kodu: 


#include <stdio.h> 
#include <stdlib.h> 


using System; 
namespace dmg 


int main(int argc, char *argv[]) class Program 


int a.b.aci; 
float alan; 

scanf("%d%d",&a,&b); 
scanfl["%d",&aci); 
alan=(a*b*sin(aci))/2; 
printft''%f',alan); 
system("PAUSE"); 
retum 0; 


static void Main(string[] args) 


} 


int a, b, alan,aci; 

Console.Write("A Gir = "); 

a = Convert.ToInt32(Console.ReadLine()); 

Console.Write("B Gir = "); 

b = Convert.Tolnt32(Console.ReadLine()); 

Console.Write("Açı Gir = "); 

aci = Convert.ToInt32(Console.ReadLine()); 

alan = Convert.ToInt32((a * b * Math.Sin(aci))/ 2); 

Console.Write(alan); 

Console. ReadLineO; 


Vh.Net Kodu: 


Imports System.Math 
Public Class Forml 

Private Sub Buttonl_Click(sender As System.Object, e As System.EventArgs) Handles 
Buttonl.Click 

Dim a, b, aci As Integer 
Dim alan As Double 
a = TextBoxl.Text 
b = TextBox2.Text 
aci =TextBox3.Text 
alan = (a * b * Sin(aci)) / 2 
Label3.Text = alan 
End Sub 

End Class _ 

.lava Kodu: 


import java.util.Scanner; 
public class Soru36{ 

public static void main(String[] args){ 
double a,b,alan,aci; 

Scanner oku=new Scanner(System.in); 
System.out.print("A kenarını giriniz="); 
a=oku.nextDouble(); 
System.out.print("B kenarım giriniz="); 
b=oku.nextDoubleQ; 
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37. Dışarıdan yarıçapı girilen kürenin alanını ve hacmini hesaplayan 
programın algoritma akış diyagramını oluşturunuz. 


Algoritma: 

1. Başla 

2. r, alan, hacim değişkenlerini al. 

3. r değerini gir 

4. alan=4*pi*r A 2 

5. hacim=(4*pi*r A 3)/3 

6. Yazdır alan, hacim 

7. Bitir 

Açıklama: 

Bir önceki soruda olduğu gibi girilen 
değerleri formülde kullanıp sonucu 
ekrana yazdırıyoruz. Yarıçap değeri 
dışarıdan girilecektir, zaten pi sayının 
değeri sabit (consst) 3,14 olduğundan 
bu değerler ile kürenin alan ve hacmi 
bulunmaktadır. 

Alan = 4ırr 2 

4 3 

Hacım = -ırr 


Akış Diyagramı: 



Ekran Çıktısı: 
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C Kodu: 

I #inclııde <stdio.h> 
tfinclude <conio.h> 
tfinclude <math.h> 
int main(int argc, char *argv[]) 
{ 

int r; 

float alan.hacim; 
float pi=3.14; 
scantr%d",&r); 
alan=4*pi*pow(r,2); 
hacim={4*pi*pow(r,3))/3; 
printfî"%P’,alan, hacim); 
system("PAUSE"); 
retum 0; 

} 


C# Kodu: 


using System; 
namespace dmg 
{ 

class Program 

{ 

static void Main(string[] args) 

{ 

int r, alan, hacim; 

Console.VVriteÇ'R Gir = "); 
r = Convert.ToInt32(Console.ReadLine()); 
alan = Convert.Tolnt32(4 * Math.PI ♦ Math.Pow(r,2)); 
hacim = Convert.Tolnt32((4 * Math.PI * 

Matlı.Pow(r,3))/3); 

Console.WriteLine("Alan = " + alan); 
Console.Write("Hacim = " + hacim); 
Console.ReadLine(); 

} 


Vb.Net Kodu: 

Imports System. Math 
| Public Class Forml 

Pnvate Sub Button l_Click(sender As System.Object, e As System.EventArgs) Handles 
| Button I.Click 

Dim r As Integer 

Dim pi = 3.14, alan, hacim As Double 
r = TextBox I .Text 
alan = 4 * pi * Pow(r, 2) 
hacim = (4 * pi * Pow(r, 3)) / 3 
TextBox2.Text = alan 
TextBox3.Text = hacim 
End Sub 
| End C lass 

■lava Kodıı: -- 


import java.util.Scanner; 
public class Soru37{ 

public static void main(String[] args){ 
double r,alan,hacim; 

Scanner oku=new Scanner(System.in); 
System.out.print("Yan Çapı giriniz="); 
r=oku.nextDouble(); 
alan=4*Math.PI*Math.pow(r,2); 
hacim=(4*Math.PI*Math.pow(r,3))/3; 
System.out.println("Alan=”+alan); 
System.out.print("Hacim="+hacim); 
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38. Girilen bir tam sayının hanelerindeki en büyük sayıyı bulan 
algoritma ve akış diyagramını oluşturunuz. 

Algoritma: 

1 .Başla 


2. a, enb=0, b değişkenleri al 

3. a değerini gir 

4. b=a-a/10*10 işlemini yap 

5. Eğer enb<b ise enb=b 

6. Eğer a o 0 ise 7. adıma git 
değilse a =(a/10) ve 4.adıma git 

7. Yazdır enb 

8. Bitir 
Açıklama: 

Dinamik bir soru sayının kaç 
basamaklı bir sayı olduğu bilinmiyor 
ve kullanıcıdan istenilmektedir. Daha 
önceki çözümlerde sayıyı devamlı 10’a 
bölerek bunu tanımladığımız enb 
değişkene atarak karşılaştırma 
yapılmıştır. Enb değişkeni ise takas 
alanıdır. En büyük basamak değeri her 
adımda şart uyarsa enb içine atılır. 
Yani her defasında enb içeriği 
değişebilir. Enb=0 başlangıçta, sonra b 
değişkenine birler basamağı 
atanmaktadır. Daha sonra bu b değerini 
enb ile karşılatmıyoruz. Küçükse enb=b 
‘yi atıyoruz. Bu işlemi a=0 olana kadar 
devam ettiriyoruz. Son olarak enb 
değeri ekrana basılmaktadır. 


Ekran Çıktısı: 



Akış Diyagramı: 



Bitir 
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C Kodu: 

C# Kodu : 

#include <stdio.h> 

#include <stdlib.h> 

using System; 
namespace dmg 
{ 

class Program 

int maiıı(int argc, char *argv[]) 

< 

{ 

int a,enb,b; 

static void Main(string[] args) 

scanfT%d",&a); 

{ 

enb=0; 

int a, enb, b; 

while(a!=0) 

Console.Write("A = "); 

{ 

a = Convert.Tolnt32(Conso!e.ReadLine()); : 

b=a-a/10*10; 

enb = 0; 

ıf(enb<b) 

enb=b; 

while (a != 0) 

{ 

a =(a/IO); 

b = a-a/ 10* 10; 

} 

if (enb < b) 

printfT'cnbuyuk %d",enb); 

enb = b; 

system("PAUSE"); 

a = (a/ 10); 

retum 0; 

} 

} 

Console.Write("En büyük = "+ enb); 


Console. Read Li ne(); 

} 

} 

) 

Vb.Net Kodu: 


Public Class Fomıl 


Private Sub Buttonl_Click(sender As System.Object, e As System.EventArgs) Handles 

Button 1 .Click 


Di m a, enb, b As Integer 
a = CInt(TextBoxl .Text) 
enb = 0 

While(a<>0) 


b = a Mod 10 

If (enb < b) Then 
enb = b 

End If 
a = (a / 10) 


End While 


Label6.Text = "enbuyuk —>" & "" & enb 

End Sub 

End Class 


Java Kodu: 


import java.util.Scanner; 
public class Soru38{ 
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39. Dışarıdan ‘Derece’ cinsinden girilen açıyı; ‘Radyan’ ve ‘Grad’ 
cinsine çeviren programın algoritma ve akış diyagramını 


oluşturunuz. 

Algoritma: 

1 .Başla 

2. d,r,g,pi=3.14 değişkenleri al. 

3. d (açı) değerini gir. 

4. r=d*pi/180 

5. g=d*200/180 
ö.yaz r,g 

7.Bitir 

Açıklama: 

Klasik işlem sorusu dışarıdan alman 
değerleri, dönüşüm formülüne 
uygulayınca sonucu ekrana basan 
programın algoritmasıdır. 

D _ R _ _C_ 

180 Ti 200 


Akış Diyagramı: 



Ekran Çıktısı: 


r 

□d DMG 

O 

i 0 |fc£3ı|' 

Ag (Derece) giriniz : SO 


Hesapta 


Radyan : 1,04666666666667 



Grad : 67 

i 
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C Kodu: 


#include <stdio.h> 

#include <std!ib.h> 

int main(int argc, char *argv[]) 

{ 

float aci,r,g,pi=3.14; 

printf("Derece cinsinden aci giriniz"); 

scanfT%f’,&aci); 

r=(aci*piy 180; 

g=(aci*200)/180; 

printf)"radyan= %f, grad = %f’,r,g); 
system("PAUSE"); 
retum 0; 

} 


C# Kodu: 


using System; 
namespace dmg 
{ 

class Program 

{ 

static void Main(string[] args) 

{ 

int d, r, g; 
double pi = 3.14; 

Console.Write(''Açıyı Giriniz = "); 
d = Convert.ToInt32(Console.ReadLine()); 
r = Convert.ToInt32(d * pi / 180); 
g = d * 200 /180; 

Console.WriteLine("Radyan = " + r); 
Console.Write("Grad = " + g); 
Console.ReadLine(); 


Vb.Net Kodu: 


Public Class Forml 

Private Sub Buttonl_Click(sender As System.Object, e As System.EventArgs) Handles 
Buttonl.Click 

Dim g, aci As Integer 
Dim pi = 3.14, r As Double 
aci = TextBoxl.Text 
r = (aci * pi) / 180 
g = (aci *200)/ 180 
Label3.Text = r 
Label6.Text = g 
End Sub 
End Class 


Java Kodu: 


import java.util.Scanner; 
public class Soru39{ 

public static void main(String[] args){ 
double d,r,g; 
double pi=3.14; 

Scanner oku=new Scanner(System.in); 
System.out.printC’Açıyı giriniz="); 
d=oku.nextDouble(); 
r=d*pi/180; 
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40. Dışarıdan iki dik kenan girilen üçgenin hipotenüsünü hesaplayan 
programın algoritma ve akış diyagramını oluşturunuz. 



c = 4cr +b 2 


Algoritma: 

1. Başla 

2. a,b,c değişkenlerini al. 

3. a,b değerini gir. 

4. c=((a A 2)+(b A 2)) A ('/ 2 ) 


Akış Diyagramı: 


( Basla ^ 


a.b.c 

/ 

a.b 




c={(a A 2)+(b A 2)) A (’/4) 

< c ) 


Bitir ^ 



5.Yazdır c 
ö.Bitir 


Ekran Çıktısı: 


Açıklama: 

Bu soruda dairenin alanı gibi bir dik 
üçgen formülümüz bulunmaktadır. 
Buna göre kullanıcıdan bu değerleri 
alıp, formülde yerine koyduktan 
sonra sonucu ekrana basarız. Bu soru, 
konuyla ilgili temel aksettiren 
sorulardandır. 


o- DMG U=H £1 


a kenarını giriniz : 5 

Hesapla 

b kenan r* giriniz : 3 


Hpdorai» : 5.8309518348453 
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C Kodu: 

#include <stdio.h> 

#include <stdlib.h> 
int main(int argc, char *argv[]) 
{ 

int a,b; 
float c; 

scanfi("%d",&a); 
scanf("%d",&b); 
c=sqrt(pow(a,2)+ pow(b,2)); 
print(V'%f',c); 
systcm("PAUSE"); 
retum 0; 

} 


C#Kodu : using System; 
namespace dmg 
{ 

class Program 

{ 

static void Main(string[] args) 

{ 

int a, b; 
double c; 

Console.Write("A Gir = "); 
a = Convert.Tolnt32(Console.ReadLine()); 
Consoie.Write("B Gir = ”); 
b = Convert.ToInt32(Console.ReadLine()); 
c = Convert.ToDouble(Matlı.Sqrt((Math.Pow(a, 2) + 
Math.Pow(b, 2)))); 

ConsoIe.Write(c); 

Console.ReadLineO; 

) 

) 


Vb.Net Kodu: 


Imports System.Math 
Public Class Forml 

Private Sub Buttonl_Click(sender As System.Object, e As System.EventArgs) Handles 
Buttonl.Click 

Dim a, b As Integer 

Dim c As Double 

a = TextBoxl.Text 

b = textbox2.text 

c = Sqrt(Pow(a, 2) + Pow(b, 2)) 

Label6.Text = c 
End Sub 

End Class 


Java Kodu: 


import java.util.Scanner; 
public class Soru40{ 

public static void main(String[] args){ 
int a,b; 
double c; 

Scanner oku=new Scanner(System.in); 
System.out.print("A kenarını giriniz^"); 
a=oku.nextInt(); 

System.out.print("B kenarım giriniz="); 
b=oku.nextInt(); 

c=Math.sqrt(Math.pow(a,2)+Math.pow(b,2)); 

System.out.println("C="+c); 

I 

J- 
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41. Girilen 3 basamaklı bir sayının basamaklarının küpleri 

toplamı sayının kendine eşit olup olmadığını bulan programın 
algoritma ve akış diyagramını oluşturunuz. 

Algoritma: 

Ekran Çıktısı: 


1. Başla 

2. x,şayi, top=0,bas değişkenlerini al 

3. şayi değerini gir 

4. x=sayi 

5. bas=sayi%10 

6. top=top+( bas*bas*bas) 

7. sayi=sayi/10 

8. Eğer sayi<10 ise 
top=top+(sayi A 3), 
değilse 5'e git 

8. Eğer (x=sayi) ise yazdır 
“eşit”,değilse yazdır “eşit değil” 

9. Bitir 

Açıklama: 

Bu soruda ilk önce yapmamız 
gereken basamak değerlerini 
bulmaktır. Bunun için sayıyı 
devamlı 10’a bölmeliyiz her zaman 
kullandığımız gibi % işareti bölme 
işleminde kalanı veriyor / işareti ise 
bölümün tam kısmını veriyor. Üs 
alma işareti olarak da A işaretini 
kullanıyoruz. Soruda döngü 
işlemleri ve şart işlemleri ön plana 
çıkıyor. Şimdi örnek değer vererek 
algoritmayı test edelim. 



Akış Diyagramı: 

Başla J 

sayı,toplam=0.bas,x 
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C Kodu: 

C# Kodu: 

#include <stdio.h> 

using System; 

#include <stdlib.h> 

namespace dmg 

int main(int argc, char *argv[]) 

{ 

{ 

class Program 

int sayi,top=0,bas,x;; 

{ 

scanf("%d",&sayi); 

static void Main(string[] args) 

x=sayi; 

dnz: 

{ 

int sayi,bas,x; 

bas=sayi% 10; 
top=top+bas A 3; 

int top=0; 

sayi=sayi/10; 

Console.Write("Bir sayı giriniz = "); 

if(sayi<10) 

şayi = Convert.ToInt32(Console.ReadLine()); 

top=top+sayi A 3; 

x=sayi; 

else 

dnz: 

goto dnz; 

bas = sayi % 10; 

if(top=x) 

top = top + (bas * bas * bas); 

printfTesit"); 

sayi=sayi/10 

else 

if(sayi < 10) 

printf("esit değil"); 

top = top + (şayi * şayi * şayi); 

system( "PAUSE"); 

else 

retum 0; 

} 

goto dnz; 

if(top=x) 

{ 

Console.WriteLine("Eşit"); 

} 

else 

{ 

Console.WriteLine("Eşit değil"); 

} 

Console.ReadLine(); 

} 

} 

} 

Vb.Net Kodu: 


Public Class Form 1 


Private Sub Buttonl_Click(sender As System.Object, e As System.EventArgs) Handles 

Buttonl.Click 


Dim top = 0, şayi, bas, x As lnteger 

şayi = TextBox 1 .Text 
x = şayi 
dnz: 

bas = şayi Mod 10 
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42. Arka arkaya girilen rastgele 10 tam sayının ortalaması ile bu 

sayılardan en büyük ve en küçük olanın ortalamasını bularak elde 
edilen bu iki ortalamanın farkını bulan programın algoritma ve 
akış diyagramını oluşturunuz. 

Algoritma: 


1. Başla 

2. a, enk,enb,temp,i,ort,fark,b 

3. a değerini gir 

4. enk=a, enb=a, temp=a işlemini yap 
5.i=2 

ö.a’yı gir 

7. Eğer enk>a ise enk=a 

8. Eğer enb<a ise enb=a 

9. temp=temp+a işlemini yap. 

10. Eğer i=10 ise 13. adıma git 

11. H+1 7. adıma git 

12. b=(enb+enk)/2 , ort=temp/10, 
fark=ort-b işlemini yap 

13. Yazdır fark 

14. Bitir 


Ekran Çıktısı: 



Say. 1 Ekle | 


7 Fark: -1 

9 

15 

7 

96 

45 

6 

8 
1 


Açıklama: 

Soruda arka arkaya girilen 10 sayı 
dediğine göre bir sayaç değerimiz 
olmalıdır. Bunun için de her zaman 
belirttiğimiz gibi I kullanırız . 1=1 
den 10 oluncaya kadar bir döngü 
oluşturur. Bunları top denilen bir 
değişkene her defasında bir önceki 
ile toplaya atarız ve 10 bölüp 
ortalamayı buluruz. Döngüyü 
kullandık. Şimdi bir de takas 
algoritmamızı kullanarak soruyu 
çözelim. En büyük ve en küçük gibi 
sorularda unutulmamalıdır ki enb 
veya enk diye bir değişken alırız, ilk 
sayıyı bunun içine atarız ve diğer 
kaç sayı gelecekse enb ile 
karşılaştırırız. Bu değerden büyük 
enb içindeki değer değişir. Enk için 
de bu geçerlidir. Bunu da yaptıktan 
sonra enb ve enk toplayıp 2’ye 
bölüp ortalama bulunmaktadır. İlk 
ortalama ve son ortalama değeri 
çıkartılıp sonuç ekrana 

yazdırılmaktadır. 
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Akış Diyagramı : 
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C Kodu: 

C# Kodu: 

#include <stdio.h> 

using System; 

#include <stdlib.h> 

namespace dmg 

I 

int main(int argc, char *argv[]) 

l 

class Program 

{ 

{ 

int a,enk,enb,temp,i; 

static void Main(string[] args) 

float b,ort,fark; 

{ 

scanf("%d",&a); 

int enk, enb, ort, fark, b; 

enk=a; 

int temp; 

enb=a; 

int i; 

temp=a; 

int a; 

for( i=2;i<= 10;i++) 

Console.Write("Sayıyı Giriniz = "); 

{ 

a = Convert.ToInt32(Console.ReadLine()); 

scanf("%d",&a); 

enk = a; enb = a; temp =a; 

if(enk>a) 

i = 2; 

enk=a; 

for (i = 1; i < 10; i++) 

if(enb<a) 

{ 

enb=a; 

Console. VVriteC’Sayıyı Giriniz = "); 

temp=tenıp+a; 

a = Convert.ToInt32(ConsoIe.ReadLine()); 

} 

if(enk>a) 

b=(enb+enk)/2; 

{ 

ort=temp/10 ; 

enk = a; 

fark=ort-b; 

} 

printf("%f',fark); 

if (enb <a) 

system("PAUSE"); 

{ 

retum 0; 

enb = a; 

} 

} 


temp = temp + a; 

> 

b = (enb + enk) / 2; 
ort = temp / 10; 
fark = ort - b; 

Console. Write(fark); 

Console. ReadLineO; 


} } ) 

Vb.Net Kodu: 


Public Class Forml 


Private Sub Buttonl_Click(ByVal sender As System.Object, ByVal e As System. EventArgs) 

Handles Buttonl.Click 


Dim top, eııb, enk, şayi, ortl, ort2 As Integer 

şayi = CInt(TextBoxl .Text) 
top = 0 
enb = 0 
enk = -1 


top = top + şayi 

If enk = -1 Then 


enk = şayi 

Else 
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43.1 k sayısı tek ise 3 ile çarpılıp 1 ekleniyor çift ise 2 ile bölünüyor 
işlem k sayısı 1 olana kadar devam ediyor bu işlemin kaç adım 
sürdüğünü, işlem sırasında k sayısının aldığı max değeri k sayısının 
hangi sayıdan sonra hep çift olarak l'e ulaştığını bulan programın 
algoritma ve akış diyagramını oluşturunuz. 

Açıklama: 


Algoritma: 

1. Başla 

2. k,sayac=0,max=0,bolunen=0 
değişkenlerini al 

3. k değerini gir 

4. Eğer k!=l ise sayac++ devam et, 
değilse 9’a git 

5. Eğer k%2=l ise 
k=k(k*3)+l,sayac++ bolunen=0 , 
değilse devam et 

6. Eğer (bolunen<k) ise bolunen=k, 
değilse devam et 

7. k=k/2 işlemini yap 

8. Eğer (max<k) ise max=k 4’egit, 
değilse 4'e git 

9. Yazdır max,sayac,bolunen 

10. Bitir 


Bu soru ilk sorduğumda 
öğrencilerimin kafasını çok 
karıştırmıştı ve ancak birkaçı cevap 
verebilmişti. Aslında sorudaki 
işlemler gayet basittir ama çözüm 
yeteneği gelişmiş kişilerin 
yapabileceği türden bir sorudur. 
Çünkü algoritma ya da problem 
çözme biraz da çalışma azmi ve 
yetenek ister kanaatindeyiz. Bu soru 
sayılarla oyun yapılan ilgi çekici bir 
sorudur. Bir k sayısı giriliyor ve bu k 
sayısı 1 olana kadar bazı işlemler 
uygulanıyor. Bu sorunun kodunu 
yaparken VVhile döngü komutunu 
kullanmak bizce en uygunu olacaktır. 

Ekran Çıktısı: 
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Akış Diyagramı: 
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C Kodu: 

C# Kodu: 

#include <stdio.h> 

#include <stdlib.h> 

using System; 
namespace dmg 
{ 

class Program 
{ 

static void Main(string[] args) 

int ıııain(int argc, clıar *argv[]) 

l 

int k,sayac=0,max=0 t boluncn=0; 

scant("%d",&k); 

{ 

while(k!=l) 

int k, sayaç = 0, max = 0, bölünen = 0; 

{ 

Console.Write("K = "); 

sayac++; 

k = Convert.ToInt32(Console.ReadLine()); 

iftk%2== 1) 

vvhile (k != 1) 

{ 

( 

k=(k*3)+l; 

sayac++; 

sayac++; 

i f (k % 2 = 1) 

bolunen=0; 

{ 

} 

k = (k * 3) + 1; sayac++; 

else 

bölünen = 0; 

{ 

} 

it(bolunen<k) 

else 

bolunen=k; 

{ 


if (bölünen < k) 

k=k/2; 

bölünen = k; 

} 

k = k / 2; 

if(max<k) 

> 

{ 

if (max < k) 

max=k; 

{ 

} 

> 

max = k; 

} 

printfi("maks:%d .işlem :%d .soncift 

I 

:%d",max,sayac,bolunen); 

Console.VVriteLineC'Maks: " + max); 

systemC'PAUSE"); 

Console.WriteLine("İslem:" + sayaç); 

retum 0; 

Console.WriteLine("Soncift:" + bölünen); 

} 

Console.ReadLineO; 

} 

} 

> 

Vb.Net Kodu: 


Public Class Forml 


Private Sub Buttonl Click(ByVal setıder As System.Object, ByVal e As System.EvenlArgs) 

Handles Buttonl.Click 


Dim k, sayaç, max, bölünen As Integer 

k = CInt(TextBox 1 .Text) 
sayaç = 0 
bölünen = 0 
max = 0 

Whileko 1 


sayaç = sayaç + 1 


Dim modx As Integer = k Mod 2 

if mod x = 1 Then 


k = (k* 3)+ 1 



175 











Algoritma ve Programlama Tamamı Çözümlü Soru Bankası 



176 








Algoritma ve Programlama Tamamı Çözümlü Soru Bankası 


44. Ekrandan girilen bir sayı eğer 5-10 arasında ise girilen sayının 

karesini alıp gösteren, eğer 5'ten küçük ise faktöriyelini alan, 10'dan 
büyük ise sayıyı ikiye bölüp bir eksiğini yazan programın algoritma 
ve akış diyagramını oluşturunuz. 

Algoritma: 


1. Başla 

2. sayi,fak=l,i=2 değişkenlerini al 

3. say i değerini gir 

4. Eğer sayi>=5 && sayi<=10 ise 
yazdır sayi A 2 ve 9'a git, değilse 
devam et 

5. Eğer sayi<5 ise devam et, 
değilse 8'e git 

6. fak=fak*i işlemini yap 

7. Eğer i=sayi ise yazdır fak, 
değilse i++ 6'ya git 

8. Eğer sayi>10 ise yazdır 
((sayi/2)-l), değilse devam et 

9. Bitir 

Açıklama: 

Bu soruda if (eğer) önemli rol 
taşımaktadır. Çünkü 3 adet 
seçeneğimiz bulunmaktadır. 
Bunlardan birini seçmek için eğer 
kullanmalıyız. Faktöriyel, döngü 
ister ama diğer kare alma ( A ) ve 
sayıyı ikiye bölüp bir eksiğini 
alma işlemi, direkt işlemi yapıp 
ekrana basmakla sona erer. 
Seçimlik sorular ileride işimize 
yarayabilir. Mesela şu işlem için 
1 ’e bas, şu işlem için 2’ye bas gibi 
program menü girişlerinde if yada 
case mekanizmalarım kullanırız. 


Akış Diyagramı: 



Ekran Çıktısı: 
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C Kodu: 

flinclude <stdio.h> 

#include <stdlib.h> 

int main(int argc, char *argv[]) 

{ 

int sayi,fak=l,i; 
scanlV'%d",&sayi); 
if(sayi>=5 && sayi<=10) 
printf{"karesi: %f',povv(sayi,2)); 
if(sayi<5) 

{ 

for(i=l ;i<=sayi;i++) 
fak=fak*i; 

printfC'faktoriyel :%d",fak); 

} 

iftsayi>10) 

printfV'sonuc :%d",((sayi/2)-l)); 
system("PAUSE"); 
retum 0; 

} 


Ctt Kodu: 


using System; 
ııamespace dmg 
{ 

class Program 

{ 

static void Main(string(] args) 

{ 

int şayi; 
int fak = 1; 
int i = I; 

Console.Write("Sayıyı Giriniz = "); 

şayi = Convert.ToInt32(Console.ReadLine()); 

if (şayi >= 5 && şayi <= 10) 

{ 

Console.Write(Math.Sqrt(Convert.ToDouble(sayi))); 

} 

else i f (şayi < 5) 

< 

while(i <=sayi) 

{ 

fak = fak * i; 

İ4+; 

} 

Console.Write(fak); 

} 

else if (şayi > 10) 

Console.Write(((sayi / 2) - 1)); 

Console. ReadLine(); 


Vb.Net Kodu: 


Public Class Forml 

Private Sub Buttonl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Buttonl.Click 

Dim şayi, fak As Integer 
şayi = Clnt(TextBoxl.Text) 
fak = 1 

İf şayi >= 5 And şayi <= 10 Then 
Label2.Text = "Karesi: ” & şayi * şayi 
Elself şayi > 10 Then 
Label2.Text = "Sonuç:" & (şayi / 2) - 1 
Elself şayi < 5 Then 
For i As Integer = I To şayi 
fak = fak * i 
Next 

Label2.Text = "Faktoriyel: " & fak 
End İf 
End Sub 
End Class 
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Java Kodu: 


import java.util.Scanner; 
public class Soru44{ 

public static void main(String[] args) { 
int sayi,fak=l,i=l; 

Scanner oku=new Scanner(System.in); 

System.out.print("Sayıyı giriııiz=”); 
sayi=oku.nextInt(); 
i f{sayi>=5&&sayi<= 10) 

{ 

System.out.println("Sayının karekökü="+Math.pow(sayi,2)); 

} 

else if(sayi<5) 

{ 

while(i<=sayi) 

{ 

fak=fak*i; 

i++; 

} 

System.out.printlnO; 

} 

else 

System.out.println(((sayi/2)-l)); 


179 






Algoritma ve Programlama Tamamı Çözümlü Soru Bankası 


15. Dik kenar uzunluktan verilen bir üçgenin alanını hesaplayıp 
sonucu ekrana yazdıran algoritmayı ve akış diyagramını oluşturunuz. 
Algoritma: Akış Diyagramı: 


1. Başla 

2. dkl, dk2, alan=0 değişkenlerini al 

3. dkl,dk2 değerlerini gir 

4. alan=(dkl *dk2)/2 işlemini yap 

5. Yazdır alan 

6. Bitir 
Açıklama: 

Soruda iki tane dik kenarı olan bir 
üçgenden bahsedildiğinden dolayı, 
formülümüz ala hesaplaması iki dik 
kenarın çarpımının ikiye bölünmesi 
şeklinde olacaktır. 



y 

Ekran Çıktısı: 


. dik kenari giriniz= 12 
. dik kenari giriniz= 3 
ik ucgeniıı fllani= 18.00B 




V 



d.:l, dk2 


alaHdkl'dk2)/2 



▼ 

Bitir ^ 
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C Kodu: 

C# Kodu: 

#include<stdlib.h> 

namespace ak) 

#include<stdio.h> 

class Program { 

int dkl, dk2; 

static void Main(string[] args) { 

float alan=0; 

int diki, dik2; 

int main(){ 

float alan; 

printft" 1. dik kenari giriniz= "); 

Console.Write("l.dik kenarı giriniz=”); 

scanfV’%d", &dkl); 

diki - Convert.ToInt32(Consolc.RcadLinc()); 

printf("2. dik kenari giriniz= "); 

Console.Write(”2.dik kenarı giriniz="); 

scaııir%d", &dk2); 

dik2 = Convert.ToInt32(Console. ReadLi ne()); 

alan=dkl*dk2/2; 

alan = (float)(dikl * dik2) / 2; 

printff’Dik üçgenin Alani=%f', 

Console. Write("Oçgenin alanı=” + alan); 

alan); 

Console. ReadLine(); 

system("PAUSE"); 

İ } 

retum 0; 

} 

> 

} 

Vb.Net Kodu: 

Modüle Modüle 1 


Sub Main() 


Dim dkl, dk2 

Dini alan As Double 


Console.Write("Lütfen 1. Dik kenerı giriniz:") 

dkl = Console. ReadLineO 


Console.Write("Lütfen 2. Dik kenerı giriniz:") 

dk2 = Console.ReadLine() 
alan = dkl *dk2/2 


Console.WriteLinc("Alan: " + alan.ToStringO) 

Console. ReadLi ne() 

End Sub 


End Modüle 


.(ava Korlü: 


import java.util.Scanner; 
public class DikUcgen { 


public static void main(String[] args){ 

int dkl,dk2; 
float alan=0; 


Scanner oku=new Scanner(System.in); 

System.out.print("Lutfen 1. dik kenarı giriniz="); 

dk 1 =oku.next!nt(); 


System,out.print("Lutfen 2. dik kenarı giriniz="); 

dk2=oku.nextlnt0; 

alan=dkl*dk2/2; 


System.out.println(" 

} 

} 

Dik üçgenin Alanı="+alan); 
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46. İki kenar uzunluğu girilen bir dikdörtgenin alanını ve çevresini 
hesaplayıp ekrana yazdıran programın algoritma ve akış 
diyagramını oluşturunuz. 


Algoritma: 

1. Başla 

2. kİ, k2, alan=0, cevre=0 
değişkenlerini al 

3. kl, k2 değerlerini gir 

4. cevre= (kl+k2)*2 işlemini yap 

5. alan= kİ *k2 işlemini yap 

6. Yazdır çevre, alan 

7. Bitir 

Açıklama: 

Bu soruda bir dikdörtgenin dışardan 
girilecek iki kenarı için alan ve çevre 
hesaplama işlemi istenmiştir. Alan 
hesabı iki dik kenarın çarpımıyla 
bulunur. Çevre hesabıda dört kenarın 
toplamı olduğundan ve karşılıklı 
kenarlar birbirlerine eşit olduğundan 
farklı iki kenarın toplamının iki katı 
dikdörtgenin çevresinin sonucunu 
verecektir. 




Ekran Çıktısı: 


Akış Diyagramı: 



alan=kl.k2 


Bitir 


çevre=(kl+k2)/2 
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C Kodu: 

C# Kodu: 

#include<stdio.h> 

namespace ak { 

int kİ, k2, cevre=0, alan=0; 

class Program { 

main(){ 

static void Main(string[] args) { 

printff'Lutfen 1. kenarı giriniz= ”); 
scaııf("%d", &kl); 
printfÇ'Lutfen 2. kenarı giriniz= "): 

int kİ, k2,alan,cevre; 

Console.Write("l. kenan giriniz="); 

kİ = Convert.ToInt32(Console.ReadLine()); 

Consolc.Writc("2. kenan giriniz="); 

scanf("%d'', &k2); 

k2 = Convert.ToInt32(Console.ReadLine()); 

cevre=(kl+k2)*2; 

alan = kİ * k2; 

alan=kl*k2; 

çevre = (kİ + k2) * 2; 

printfV'Dikdörgenin Çevresi= %d", çevre); 

Console.WriteLine("Dikdörtkenin alam=" + 

printtV'Dikdörgenin Alanı= %d", alan); 

alan); 

} 

Console.Write("Dikdörtkenin çevresi=" + 

çevre); 


Console.ReadLine(); 

} 

> 

> 

Vb.Net Kodu: 

Modüle Modulel 


Sub Main() 


Dim dkl, dk2 As Integer 

Dim alan As Double 

Dim çevre As Integer 


Console.Write("Lütfen Uzun kenerı giriniz: ") 

dkl = Console.ReadLine() 


Console.Write("Lütfen Kısa kenen giriniz: ") 

dk2 = Console.ReadLine() 
alan = dk 1 * dk2 
çevre = (dk 1 + dk2) * 2 


Console.WriteLine("Alan: " + alan.ToString() + ", Çevre: " + cevre.ToStringO) 

Console.ReadLine() 

End Sub 


End Modüle 


Java Kodu: 


import java.util.Scanner; 
public class Dikdörtgen { 


public static void main(String[] args){ 

int kI,k2,alan-0, cevre=0; 

Scanner oku=new Scanner(System.in); 

Systern.out.printÇLutfen 1. kenarı giriniz="); 

kl=oku.next!nt(); 


System.out.printÇ'Lutfen 2. kenarı giriniz="); 

k2=oku.next!nt(); 

cevre=(kl+k2)*2; 

alan=kl*k2; 


System.out.priııtlnÇDikdörtgenin Çevresi="+cevre); 

System.out.printlnÇDikdörtgenin Alanı=”+alan); 

} 

} 
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47. s-x+y 2 denkleminin sonucunu dışardan girilen x ve y değerleri için 
hesaplayıp sonucu ekrana yazdıran programın algoritma ve akış 
diyagramını oluşturunuz. 


Algoritma: 

1. Başla 

2. x, y, s=0 değişkenlerini al 

3. x, y değerlerini gir 

4. s=x+y*y işlemini yap 

5. Yazdır s 

6. Bitir 

Açıklama: 

Bu soruda temel matematik işlemlerin 
yapılması ve operatörlerin kullanılması 
hedeflenmiştir, y 2 , y*y şeklinde 
yazılabildiği gibi y A 2 şeklinde de 
yazılabilir. 


Ekran Çıktısı: 


Lütfen x değerini giriniz 1 2 
Lütfen y değerini giriniz= 3 
s =11 

Deuan etnek için bir tuşa basın .. . 


Akış Diyagramı: 


( 


3aj i 
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C Kodu: 

C# Kodu: 

#include<stdlib.h> 

namespace ak { 

#include<stdio.h> 

class Program { 

int x,y,s=0; 

static void Main(string[] args) { 

nıain(){ 

int x, y, s; 

printfT'Lutfen x değerini giriniz= "); 

Console.Write("x değerini giriniz="); 

scanf{"%d", &x); 

x = Convert.Tolnt32(Console.ReadLine()); 

printf("Lııtfen y değerini giriniz= "); 

Console.Write("y değerini giriniz="); 

scanft"%d", &y); 

y = Convert.Tolnt32(Console.ReadLine()); 

s=x+y*y; 

s = x + y * y; 

printfT's=%d\r\n ", s); 

Console.WriteLineC's=" + s); 

system("PAUSE"); 

Console.ReadLineO; 

retum 0; 

) 

> 

} 

} 

Vb.Net Kodu: 

Modüle Modulel 


Sub MainO 


Dim x, y, s As Integer 
s = 0 


Console.Write("Lütfen x değerini giriniz: ") 

x = Console.ReadLineO 


Console.Write("Lütfen y değerini giriniz: ") 

y = Console.ReadLineO 
s = x + (y * y) 

Console.Write("Sonuç:" + s) 
Console.ReadLineO 


End Sub 

End Modüle 


Java Kodu: 


import java.util.Scanner; 
public class Denklem { 


public static void main(String[] args){ 

int x,y,s=0; 


Scanner oku=new Scanner(System.in); 

System.out.print("Lutfen x değerini giriniz="); 

x=oku.nextlnt(); 


System.out.print("Lutfen y değerini giriniz="); 

y=oku.nextInt(); 

s=x+y*y; 


System.out.printl n("s= 

} 

} 

"+s); 
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.„ 2(a+3b) , . . . . 

4o. x-——— denkleminin sonucunu dışardan girilen a ve değerleri için 

hesaplayıp sonucu ekrana yazdıran programın algoritma ve akış 
diyagramını oluşturunuz. 

Algoritma: Ekran Çıktısı: 

1. Başla 


2. a, b, x=0 değişkenlerini al 

3. a,b değerini gir 

4. x=(2*(a+(3*b)))/(a*b) işlemini 
yap 

5. Yazdır x 
8.Bitir 

Açıklama: 

Bu soruda matematiksel ifadelerin ve 
operatörlerin doğru bir şekilde 
kullanımı hedeflenmiştir. İşlem 
önceliği olan ifadelere dikkat edilmesi 
gerekmektedir. Bu soruda a ve b 
değerleri 0 olmamalı. Bu algoritmada 
hata olarak gözükmese de 
programlama dillerinde O’a bölme 
hatasıdır. Buna benzer başka 
sorularda bu kontroller üzerinde 
durulacaktır. 


Lütfen a değerini giriniz 1 2 
Lııtfen b değerini giriniz 1 4 
x=3.500000 

Devan etnek için bir tuça basın . . . 


Akış Diyagramı: 



a,b 


x=(2*(a+3*b))/(a*b) 



186 























Algoritma ve Programlama Tamamı Çözümlü Soru Bankası 


C Kodu: 

#include<stdlib.h> 

#inc!ude<stdio.h> 
float a,b; 
lloat x=0; 

main(){ j 

printlfLutfen a değerini giriniz= "); 
scanf{"%f, &a); 

printf("Lutfen b değerini giriniz= ”); 
scanf("%f\ &b); 
x=(2*(a+(3*b)))/(a* b); 
printft"x=%f\r\n ", x); 
system("PAUSE"); 
return 0; 

} 

C# Kodu: 

namespace ak { 
class Program { 

static void Main(string[] args) { 

int a, b; 
float x; 

Console.Write("a değerini giriniz="); 
a = Convert.ToInt32(Console.ReadLine()); 
Console.Write("b değerini giriniz="); 
b = Convert.Tolnt32(Console.ReadLine()); 
x = (floatX2 * (a + 3 * b)) / (a * b); 
Console.WriteLine("x=" + x); 

Console. ReadLinef); 

> 

> 

} 

Vb.Net Kodu: 

Modüle Modulel 

Sub Main() 

Dim a, b, x As Integer 
x = 0 

Console.Write("L(ltfen a değerini gir 
a = Console.ReadLine() 
Console.Write("Lütfen b değerini git 
b = Console.ReadLine() 
x = (2 * (a + 3 * b» / (a * b) 
Console.Write("Sonuç:" + x) 
Console.ReadLineO 

End Sub 

End Modüle 

iniz:") 

iniz:") 

Java Kodu: 

iınport java.util.Scanner; 
public class Kesirli { 

public static void main(String[] args){ 
int a,b; 
float x=0; 

Scanner oku=new Scanner(System.in); 

System.out.print("Lutfen a değerini giriniz="); 
a=oku.nextInt(); 

System.out.print(”Lutfen b değerini giriniz="); 

b=oku.nextInt(); 

x=(2*(a+3*b))/(a*b); 

System.out.println("x= ”+x); 

} 

t M , , 
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49. Klavyeden -1 sayısı girilene kadar ekrana sayı girişine izin veren 
programın algoritma ve akış diyagramını oluşturunuz. 


Algoritma: 

1. Başla 

2. sayi=0 değişkenini al 

3. şayi değerini gir 

4. Eğer sayi= -1 ise devam et, 
değilse 3’ e git 

5. Yazdır “-1 girdiniz ve program 
Sonlandı” 

6. Bitir 

Açıklama: 

Bu soruda Eğer (if) ifadesinin 
kullanımın mantığının pekiştirilmesi 
hedeflenmiştir. Bir işlemin evet ya da 
hayır, doğru ya da yanlış gibi 
sonuçları varsa karar yapılarının 
kullanılması programı doğru 
yazmamızı sağlayacaktır. 


Ekran Çıktısı: 


ayı giriniz* 2 
ayi giı>iniz= 3 
ayi giriniz* 5 
ayi giriniz* 11 
ayi giriniz* 3 
ayi giriniz* -1 

1 girdiniz ge progran Sonlandi 
evan etnek için bir tuça basın . 


Akış Diyagramı: 
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42. Arka arkaya girilen rastgele 10 tam sayının ortalaması ile bu 

sayılardan en büyük ve en küçük olanın ortalamasını bularak elde 
edilen bu iki ortalamanın farkını bulan programın algoritma ve 
akış diyagramını oluşturunuz. 

Algoritma: 


1. Başla 

2. a, enk,enb,temp,i,ort,fark,b 

3. a değerini gir 

4. enk=a, enb=a, temp=a işlemini yap 
5.i=2 

ö.a’yı gir 

7. Eğer enk>a ise enk=a 

8. Eğer enb<a ise enb=a 

9. temp=temp+a işlemini yap. 

10. Eğer i=10 ise 13. adıma git 

11. H+1 7. adıma git 

12. b=(enb+enk)/2 , ort=temp/10, 
fark=ort-b işlemini yap 

13. Yazdır fark 

14. Bitir 


Ekran Çıktısı: 



Say. 1 Ekle | 


7 Fark: -1 

9 

15 

7 

96 

45 

6 

8 
1 


Açıklama: 

Soruda arka arkaya girilen 10 sayı 
dediğine göre bir sayaç değerimiz 
olmalıdır. Bunun için de her zaman 
belirttiğimiz gibi I kullanırız . 1=1 
den 10 oluncaya kadar bir döngü 
oluşturur. Bunları top denilen bir 
değişkene her defasında bir önceki 
ile toplaya atarız ve 10 bölüp 
ortalamayı buluruz. Döngüyü 
kullandık. Şimdi bir de takas 
algoritmamızı kullanarak soruyu 
çözelim. En büyük ve en küçük gibi 
sorularda unutulmamalıdır ki enb 
veya enk diye bir değişken alırız, ilk 
sayıyı bunun içine atarız ve diğer 
kaç sayı gelecekse enb ile 
karşılaştırırız. Bu değerden büyük 
enb içindeki değer değişir. Enk için 
de bu geçerlidir. Bunu da yaptıktan 
sonra enb ve enk toplayıp 2’ye 
bölüp ortalama bulunmaktadır. İlk 
ortalama ve son ortalama değeri 
çıkartılıp sonuç ekrana 

yazdırılmaktadır. 
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Akış Diyagramı : 
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C Kodu: 

C# Kodu: 

#include <stdio.h> 

using System; 

#include <stdlib.h> 

namespace dmg 

I 

int main(int argc, char *argv[]) 

l 

class Program 

{ 

{ 

int a,enk,enb,temp,i; 

static void Main(string[] args) 

float b,ort,fark; 

{ 

scanf("%d",&a); 

int enk, enb, ort, fark, b; 

enk=a; 

int temp; 

enb=a; 

int i; 

temp=a; 

int a; 

for( i=2;i<= 10;i++) 

Console.Write("Sayıyı Giriniz = "); 

{ 

a = Convert.ToInt32(Console.ReadLine()); 

scanf("%d",&a); 

enk = a; enb = a; temp =a; 

if(enk>a) 

i = 2; 

enk=a; 

for (i = 1; i < 10; i++) 

if(enb<a) 

{ 

enb=a; 

Console. VVriteC’Sayıyı Giriniz = "); 

temp=tenıp+a; 

a = Convert.ToInt32(ConsoIe.ReadLine()); 

} 

if(enk>a) 

b=(enb+enk)/2; 

{ 

ort=temp/10 ; 

enk = a; 

fark=ort-b; 

} 

printf("%f',fark); 

if (enb <a) 

system("PAUSE"); 

{ 

retum 0; 

enb = a; 

} 

} 


temp = temp + a; 

> 

b = (enb + enk) / 2; 
ort = temp / 10; 
fark = ort - b; 

Console. Write(fark); 

Console. ReadLineO; 


} } ) 

Vb.Net Kodu: 


Public Class Forml 


Private Sub Buttonl_Click(ByVal sender As System.Object, ByVal e As System. EventArgs) 

Handles Buttonl.Click 


Dim top, eııb, enk, şayi, ortl, ort2 As Integer 

şayi = CInt(TextBoxl .Text) 
top = 0 
enb = 0 
enk = -1 


top = top + şayi 

If enk = -1 Then 


enk = şayi 

Else 
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43.1 k sayısı tek ise 3 ile çarpılıp 1 ekleniyor çift ise 2 ile bölünüyor 
işlem k sayısı 1 olana kadar devam ediyor bu işlemin kaç adım 
sürdüğünü, işlem sırasında k sayısının aldığı max değeri k sayısının 
hangi sayıdan sonra hep çift olarak l'e ulaştığını bulan programın 
algoritma ve akış diyagramını oluşturunuz. 

Açıklama: 


Algoritma: 

1. Başla 

2. k,sayac=0,max=0,bolunen=0 
değişkenlerini al 

3. k değerini gir 

4. Eğer k!=l ise sayac++ devam et, 
değilse 9’a git 

5. Eğer k%2=l ise 
k=k(k*3)+l,sayac++ bolunen=0 , 
değilse devam et 

6. Eğer (bolunen<k) ise bolunen=k, 
değilse devam et 

7. k=k/2 işlemini yap 

8. Eğer (max<k) ise max=k 4’egit, 
değilse 4'e git 

9. Yazdır max,sayac,bolunen 

10. Bitir 


Bu soru ilk sorduğumda 
öğrencilerimin kafasını çok 
karıştırmıştı ve ancak birkaçı cevap 
verebilmişti. Aslında sorudaki 
işlemler gayet basittir ama çözüm 
yeteneği gelişmiş kişilerin 
yapabileceği türden bir sorudur. 
Çünkü algoritma ya da problem 
çözme biraz da çalışma azmi ve 
yetenek ister kanaatindeyiz. Bu soru 
sayılarla oyun yapılan ilgi çekici bir 
sorudur. Bir k sayısı giriliyor ve bu k 
sayısı 1 olana kadar bazı işlemler 
uygulanıyor. Bu sorunun kodunu 
yaparken VVhile döngü komutunu 
kullanmak bizce en uygunu olacaktır. 

Ekran Çıktısı: 
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Akış Diyagramı: 
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C Kodu: 

C# Kodu: 

#include <stdio.h> 

#include <stdlib.h> 

using System; 
namespace dmg 
{ 

class Program 
{ 

static void Main(string[] args) 

int ıııain(int argc, clıar *argv[]) 

l 

int k,sayac=0,max=0 t boluncn=0; 

scant("%d",&k); 

{ 

while(k!=l) 

int k, sayaç = 0, max = 0, bölünen = 0; 

{ 

Console.Write("K = "); 

sayac++; 

k = Convert.ToInt32(Console.ReadLine()); 

iftk%2== 1) 

vvhile (k != 1) 

{ 

( 

k=(k*3)+l; 

sayac++; 

sayac++; 

i f (k % 2 = 1) 

bolunen=0; 

{ 

} 

k = (k * 3) + 1; sayac++; 

else 

bölünen = 0; 

{ 

} 

it(bolunen<k) 

else 

bolunen=k; 

{ 


if (bölünen < k) 

k=k/2; 

bölünen = k; 

} 

k = k / 2; 

if(max<k) 

> 

{ 

if (max < k) 

max=k; 

{ 

} 

> 

max = k; 

} 

printfi("maks:%d .işlem :%d .soncift 

I 

:%d",max,sayac,bolunen); 

Console.VVriteLineC'Maks: " + max); 

systemC'PAUSE"); 

Console.WriteLine("İslem:" + sayaç); 

retum 0; 

Console.WriteLine("Soncift:" + bölünen); 

} 

Console.ReadLineO; 

} 

} 

> 

Vb.Net Kodu: 


Public Class Forml 


Private Sub Buttonl Click(ByVal setıder As System.Object, ByVal e As System.EvenlArgs) 

Handles Buttonl.Click 


Dim k, sayaç, max, bölünen As Integer 

k = CInt(TextBox 1 .Text) 
sayaç = 0 
bölünen = 0 
max = 0 

Whileko 1 


sayaç = sayaç + 1 


Dim modx As Integer = k Mod 2 

if mod x = 1 Then 


k = (k* 3)+ 1 
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44. Ekrandan girilen bir sayı eğer 5-10 arasında ise girilen sayının 

karesini alıp gösteren, eğer 5'ten küçük ise faktöriyelini alan, 10'dan 
büyük ise sayıyı ikiye bölüp bir eksiğini yazan programın algoritma 
ve akış diyagramını oluşturunuz. 

Algoritma: 


1. Başla 

2. sayi,fak=l,i=2 değişkenlerini al 

3. say i değerini gir 

4. Eğer sayi>=5 && sayi<=10 ise 
yazdır sayi A 2 ve 9'a git, değilse 
devam et 

5. Eğer sayi<5 ise devam et, 
değilse 8'e git 

6. fak=fak*i işlemini yap 

7. Eğer i=sayi ise yazdır fak, 
değilse i++ 6'ya git 

8. Eğer sayi>10 ise yazdır 
((sayi/2)-l), değilse devam et 

9. Bitir 

Açıklama: 

Bu soruda if (eğer) önemli rol 
taşımaktadır. Çünkü 3 adet 
seçeneğimiz bulunmaktadır. 
Bunlardan birini seçmek için eğer 
kullanmalıyız. Faktöriyel, döngü 
ister ama diğer kare alma ( A ) ve 
sayıyı ikiye bölüp bir eksiğini 
alma işlemi, direkt işlemi yapıp 
ekrana basmakla sona erer. 
Seçimlik sorular ileride işimize 
yarayabilir. Mesela şu işlem için 
1 ’e bas, şu işlem için 2’ye bas gibi 
program menü girişlerinde if yada 
case mekanizmalarım kullanırız. 


Akış Diyagramı: 



Ekran Çıktısı: 
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C Kodu: 

flinclude <stdio.h> 

#include <stdlib.h> 

int main(int argc, char *argv[]) 

{ 

int sayi,fak=l,i; 
scanlV'%d",&sayi); 
if(sayi>=5 && sayi<=10) 
printf{"karesi: %f',povv(sayi,2)); 
if(sayi<5) 

{ 

for(i=l ;i<=sayi;i++) 
fak=fak*i; 

printfC'faktoriyel :%d",fak); 

} 

iftsayi>10) 

printfV'sonuc :%d",((sayi/2)-l)); 
system("PAUSE"); 
retum 0; 

} 


Ctt Kodu: 


using System; 
ııamespace dmg 
{ 

class Program 

{ 

static void Main(string(] args) 

{ 

int şayi; 
int fak = 1; 
int i = I; 

Console.Write("Sayıyı Giriniz = "); 

şayi = Convert.ToInt32(Console.ReadLine()); 

if (şayi >= 5 && şayi <= 10) 

{ 

Console.Write(Math.Sqrt(Convert.ToDouble(sayi))); 

} 

else i f (şayi < 5) 

< 

while(i <=sayi) 

{ 

fak = fak * i; 

İ4+; 

} 

Console.Write(fak); 

} 

else if (şayi > 10) 

Console.Write(((sayi / 2) - 1)); 

Console. ReadLine(); 


Vb.Net Kodu: 


Public Class Forml 

Private Sub Buttonl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Buttonl.Click 

Dim şayi, fak As Integer 
şayi = Clnt(TextBoxl.Text) 
fak = 1 

İf şayi >= 5 And şayi <= 10 Then 
Label2.Text = "Karesi: ” & şayi * şayi 
Elself şayi > 10 Then 
Label2.Text = "Sonuç:" & (şayi / 2) - 1 
Elself şayi < 5 Then 
For i As Integer = I To şayi 
fak = fak * i 
Next 

Label2.Text = "Faktoriyel: " & fak 
End İf 
End Sub 
End Class 
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Java Kodu: 


import java.util.Scanner; 
public class Soru44{ 

public static void main(String[] args) { 
int sayi,fak=l,i=l; 

Scanner oku=new Scanner(System.in); 

System.out.print("Sayıyı giriııiz=”); 
sayi=oku.nextInt(); 
i f{sayi>=5&&sayi<= 10) 

{ 

System.out.println("Sayının karekökü="+Math.pow(sayi,2)); 

} 

else if(sayi<5) 

{ 

while(i<=sayi) 

{ 

fak=fak*i; 

i++; 

} 

System.out.printlnO; 

} 

else 

System.out.println(((sayi/2)-l)); 
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15. Dik kenar uzunluktan verilen bir üçgenin alanını hesaplayıp 
sonucu ekrana yazdıran algoritmayı ve akış diyagramını oluşturunuz. 
Algoritma: Akış Diyagramı: 


1. Başla 

2. dkl, dk2, alan=0 değişkenlerini al 

3. dkl,dk2 değerlerini gir 

4. alan=(dkl *dk2)/2 işlemini yap 

5. Yazdır alan 

6. Bitir 
Açıklama: 

Soruda iki tane dik kenarı olan bir 
üçgenden bahsedildiğinden dolayı, 
formülümüz ala hesaplaması iki dik 
kenarın çarpımının ikiye bölünmesi 
şeklinde olacaktır. 



y 

Ekran Çıktısı: 


. dik kenari giriniz= 12 
. dik kenari giriniz= 3 
ik ucgeniıı fllani= 18.00B 




V 



d.:l, dk2 


alaHdkl'dk2)/2 



▼ 

Bitir ^ 
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C Kodu: 

C# Kodu: 

#include<stdlib.h> 

namespace ak) 

#include<stdio.h> 

class Program { 

int dkl, dk2; 

static void Main(string[] args) { 

float alan=0; 

int diki, dik2; 

int main(){ 

float alan; 

printft" 1. dik kenari giriniz= "); 

Console.Write("l.dik kenarı giriniz=”); 

scanfV’%d", &dkl); 

diki - Convert.ToInt32(Consolc.RcadLinc()); 

printf("2. dik kenari giriniz= "); 

Console.Write(”2.dik kenarı giriniz="); 

scaııir%d", &dk2); 

dik2 = Convert.ToInt32(Console. ReadLi ne()); 

alan=dkl*dk2/2; 

alan = (float)(dikl * dik2) / 2; 

printff’Dik üçgenin Alani=%f', 

Console. Write("Oçgenin alanı=” + alan); 

alan); 

Console. ReadLine(); 

system("PAUSE"); 

İ } 

retum 0; 

} 

> 

} 

Vb.Net Kodu: 

Modüle Modüle 1 


Sub Main() 


Dim dkl, dk2 

Dini alan As Double 


Console.Write("Lütfen 1. Dik kenerı giriniz:") 

dkl = Console. ReadLineO 


Console.Write("Lütfen 2. Dik kenerı giriniz:") 

dk2 = Console.ReadLine() 
alan = dkl *dk2/2 


Console.WriteLinc("Alan: " + alan.ToStringO) 

Console. ReadLi ne() 

End Sub 


End Modüle 


.(ava Korlü: 


import java.util.Scanner; 
public class DikUcgen { 


public static void main(String[] args){ 

int dkl,dk2; 
float alan=0; 


Scanner oku=new Scanner(System.in); 

System.out.print("Lutfen 1. dik kenarı giriniz="); 

dk 1 =oku.next!nt(); 


System,out.print("Lutfen 2. dik kenarı giriniz="); 

dk2=oku.nextlnt0; 

alan=dkl*dk2/2; 


System.out.println(" 

} 

} 

Dik üçgenin Alanı="+alan); 
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46. İki kenar uzunluğu girilen bir dikdörtgenin alanını ve çevresini 
hesaplayıp ekrana yazdıran programın algoritma ve akış 
diyagramını oluşturunuz. 


Algoritma: 

1. Başla 

2. kİ, k2, alan=0, cevre=0 
değişkenlerini al 

3. kl, k2 değerlerini gir 

4. cevre= (kl+k2)*2 işlemini yap 

5. alan= kİ *k2 işlemini yap 

6. Yazdır çevre, alan 

7. Bitir 

Açıklama: 

Bu soruda bir dikdörtgenin dışardan 
girilecek iki kenarı için alan ve çevre 
hesaplama işlemi istenmiştir. Alan 
hesabı iki dik kenarın çarpımıyla 
bulunur. Çevre hesabıda dört kenarın 
toplamı olduğundan ve karşılıklı 
kenarlar birbirlerine eşit olduğundan 
farklı iki kenarın toplamının iki katı 
dikdörtgenin çevresinin sonucunu 
verecektir. 




Ekran Çıktısı: 


Akış Diyagramı: 



alan=kl.k2 


Bitir 


çevre=(kl+k2)/2 
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C Kodu: 

C# Kodu: 

#include<stdio.h> 

namespace ak { 

int kİ, k2, cevre=0, alan=0; 

class Program { 

main(){ 

static void Main(string[] args) { 

printff'Lutfen 1. kenarı giriniz= ”); 
scaııf("%d", &kl); 
printfÇ'Lutfen 2. kenarı giriniz= "): 

int kİ, k2,alan,cevre; 

Console.Write("l. kenan giriniz="); 

kİ = Convert.ToInt32(Console.ReadLine()); 

Consolc.Writc("2. kenan giriniz="); 

scanf("%d'', &k2); 

k2 = Convert.ToInt32(Console.ReadLine()); 

cevre=(kl+k2)*2; 

alan = kİ * k2; 

alan=kl*k2; 

çevre = (kİ + k2) * 2; 

printfV'Dikdörgenin Çevresi= %d", çevre); 

Console.WriteLine("Dikdörtkenin alam=" + 

printtV'Dikdörgenin Alanı= %d", alan); 

alan); 

} 

Console.Write("Dikdörtkenin çevresi=" + 

çevre); 


Console.ReadLine(); 

} 

> 

> 

Vb.Net Kodu: 

Modüle Modulel 


Sub Main() 


Dim dkl, dk2 As Integer 

Dim alan As Double 

Dim çevre As Integer 


Console.Write("Lütfen Uzun kenerı giriniz: ") 

dkl = Console.ReadLine() 


Console.Write("Lütfen Kısa kenen giriniz: ") 

dk2 = Console.ReadLine() 
alan = dk 1 * dk2 
çevre = (dk 1 + dk2) * 2 


Console.WriteLine("Alan: " + alan.ToString() + ", Çevre: " + cevre.ToStringO) 

Console.ReadLine() 

End Sub 


End Modüle 


Java Kodu: 


import java.util.Scanner; 
public class Dikdörtgen { 


public static void main(String[] args){ 

int kI,k2,alan-0, cevre=0; 

Scanner oku=new Scanner(System.in); 

Systern.out.printÇLutfen 1. kenarı giriniz="); 

kl=oku.next!nt(); 


System.out.printÇ'Lutfen 2. kenarı giriniz="); 

k2=oku.next!nt(); 

cevre=(kl+k2)*2; 

alan=kl*k2; 


System.out.priııtlnÇDikdörtgenin Çevresi="+cevre); 

System.out.printlnÇDikdörtgenin Alanı=”+alan); 

} 

} 
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47. s-x+y 2 denkleminin sonucunu dışardan girilen x ve y değerleri için 
hesaplayıp sonucu ekrana yazdıran programın algoritma ve akış 
diyagramını oluşturunuz. 


Algoritma: 

1. Başla 

2. x, y, s=0 değişkenlerini al 

3. x, y değerlerini gir 

4. s=x+y*y işlemini yap 

5. Yazdır s 

6. Bitir 

Açıklama: 

Bu soruda temel matematik işlemlerin 
yapılması ve operatörlerin kullanılması 
hedeflenmiştir, y 2 , y*y şeklinde 
yazılabildiği gibi y A 2 şeklinde de 
yazılabilir. 


Ekran Çıktısı: 


Lütfen x değerini giriniz 1 2 
Lütfen y değerini giriniz= 3 
s =11 

Deuan etnek için bir tuşa basın .. . 


Akış Diyagramı: 


( 


3aj i 
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C Kodu: 

C# Kodu: 

#include<stdlib.h> 

namespace ak { 

#include<stdio.h> 

class Program { 

int x,y,s=0; 

static void Main(string[] args) { 

nıain(){ 

int x, y, s; 

printfT'Lutfen x değerini giriniz= "); 

Console.Write("x değerini giriniz="); 

scanf{"%d", &x); 

x = Convert.Tolnt32(Console.ReadLine()); 

printf("Lııtfen y değerini giriniz= "); 

Console.Write("y değerini giriniz="); 

scanft"%d", &y); 

y = Convert.Tolnt32(Console.ReadLine()); 

s=x+y*y; 

s = x + y * y; 

printfT's=%d\r\n ", s); 

Console.WriteLineC's=" + s); 

system("PAUSE"); 

Console.ReadLineO; 

retum 0; 

) 

> 

} 

} 

Vb.Net Kodu: 

Modüle Modulel 


Sub MainO 


Dim x, y, s As Integer 
s = 0 


Console.Write("Lütfen x değerini giriniz: ") 

x = Console.ReadLineO 


Console.Write("Lütfen y değerini giriniz: ") 

y = Console.ReadLineO 
s = x + (y * y) 

Console.Write("Sonuç:" + s) 
Console.ReadLineO 


End Sub 

End Modüle 


Java Kodu: 


import java.util.Scanner; 
public class Denklem { 


public static void main(String[] args){ 

int x,y,s=0; 


Scanner oku=new Scanner(System.in); 

System.out.print("Lutfen x değerini giriniz="); 

x=oku.nextlnt(); 


System.out.print("Lutfen y değerini giriniz="); 

y=oku.nextInt(); 

s=x+y*y; 


System.out.printl n("s= 

} 

} 

"+s); 
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.„ 2(a+3b) , . . . . 

4o. x-——— denkleminin sonucunu dışardan girilen a ve değerleri için 

hesaplayıp sonucu ekrana yazdıran programın algoritma ve akış 
diyagramını oluşturunuz. 

Algoritma: Ekran Çıktısı: 

1. Başla 


2. a, b, x=0 değişkenlerini al 

3. a,b değerini gir 

4. x=(2*(a+(3*b)))/(a*b) işlemini 
yap 

5. Yazdır x 
8.Bitir 

Açıklama: 

Bu soruda matematiksel ifadelerin ve 
operatörlerin doğru bir şekilde 
kullanımı hedeflenmiştir. İşlem 
önceliği olan ifadelere dikkat edilmesi 
gerekmektedir. Bu soruda a ve b 
değerleri 0 olmamalı. Bu algoritmada 
hata olarak gözükmese de 
programlama dillerinde O’a bölme 
hatasıdır. Buna benzer başka 
sorularda bu kontroller üzerinde 
durulacaktır. 


Lütfen a değerini giriniz 1 2 
Lııtfen b değerini giriniz 1 4 
x=3.500000 

Devan etnek için bir tuça basın . . . 


Akış Diyagramı: 



a,b 


x=(2*(a+3*b))/(a*b) 
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C Kodu: 

#include<stdlib.h> 

#inc!ude<stdio.h> 
float a,b; 
lloat x=0; 

main(){ j 

printlfLutfen a değerini giriniz= "); 
scanf{"%f, &a); 

printf("Lutfen b değerini giriniz= ”); 
scanf("%f\ &b); 
x=(2*(a+(3*b)))/(a* b); 
printft"x=%f\r\n ", x); 
system("PAUSE"); 
return 0; 

} 

C# Kodu: 

namespace ak { 
class Program { 

static void Main(string[] args) { 

int a, b; 
float x; 

Console.Write("a değerini giriniz="); 
a = Convert.ToInt32(Console.ReadLine()); 
Console.Write("b değerini giriniz="); 
b = Convert.Tolnt32(Console.ReadLine()); 
x = (floatX2 * (a + 3 * b)) / (a * b); 
Console.WriteLine("x=" + x); 

Console. ReadLinef); 

> 

> 

} 

Vb.Net Kodu: 

Modüle Modulel 

Sub Main() 

Dim a, b, x As Integer 
x = 0 

Console.Write("L(ltfen a değerini gir 
a = Console.ReadLine() 
Console.Write("Lütfen b değerini git 
b = Console.ReadLine() 
x = (2 * (a + 3 * b» / (a * b) 
Console.Write("Sonuç:" + x) 
Console.ReadLineO 

End Sub 

End Modüle 

iniz:") 

iniz:") 

Java Kodu: 

iınport java.util.Scanner; 
public class Kesirli { 

public static void main(String[] args){ 
int a,b; 
float x=0; 

Scanner oku=new Scanner(System.in); 

System.out.print("Lutfen a değerini giriniz="); 
a=oku.nextInt(); 

System.out.print(”Lutfen b değerini giriniz="); 

b=oku.nextInt(); 

x=(2*(a+3*b))/(a*b); 

System.out.println("x= ”+x); 

} 

t M , , 
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49. Klavyeden -1 sayısı girilene kadar ekrana sayı girişine izin veren 
programın algoritma ve akış diyagramını oluşturunuz. 


Algoritma: 

1. Başla 

2. sayi=0 değişkenini al 

3. şayi değerini gir 

4. Eğer sayi= -1 ise devam et, 
değilse 3’ e git 

5. Yazdır “-1 girdiniz ve program 
Sonlandı” 

6. Bitir 

Açıklama: 

Bu soruda Eğer (if) ifadesinin 
kullanımın mantığının pekiştirilmesi 
hedeflenmiştir. Bir işlemin evet ya da 
hayır, doğru ya da yanlış gibi 
sonuçları varsa karar yapılarının 
kullanılması programı doğru 
yazmamızı sağlayacaktır. 


Ekran Çıktısı: 


ayı giriniz* 2 
ayi giı>iniz= 3 
ayi giriniz* 5 
ayi giriniz* 11 
ayi giriniz* 3 
ayi giriniz* -1 

1 girdiniz ge progran Sonlandi 
evan etnek için bir tuça basın . 


Akış Diyagramı: 
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C Kodu: 

C# Kodu: 

#include<stdlib.h> 

namespace ak{ 

#include<stdio.h> 

elass Program { 

int sayi=0; 

static void Main(string[] args) { 

main(){ 

int sayi=0; 

while(sayi !=-1) { 

vvhile (şayi != -1) { 

printfÇ'sayi giriniz= "); 

Console.Write("sayı gjriniz="); 

scanfl["%d",&sayi); 

şayi = Convert.ToInt32(Console.ReadLine()); 

} 


printlV’-l girdiniz ve program 

Console.Write("-l girdiniz ve program sonlandı"); 

Sonlandi\r\n"); 

Console. ReadEineO; 

system("PAUSE"); 

} 

retum 0; 

} 

} 

} 

VB. Net Kodu: 


Modüle Modüle 1 


Sub MainO 


Dim şayi As Integer 


While True 


Console.Write("Lütfen sayı değerini giriniz: ") 

şayi = Conso!e.ReadLine() 

If şayi = -1 Then 

Exit While 

End If 


End While 

Console. ReadLine() 


End Sub 

End Modüle 


.lava Kodu: 


import java.util.Scanner; 
public elass SayiGirisi { 


public static void main(String[] args){ 

int sayi=0; 


Scanner oku=new Scanner(System.in); 

while(sayi!=-1){ 


System.out.print("sayi giriniz="); 
sayi=oku.nextInt(); 

} 

System.out.println("-l girdiniz ve program Sonlandı”); 

} 
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50. Klavyeden negatif sayı girilene kadar sayı girişine izin veren ve 
girilen bu sayılan toplayıp sonucu ekrana yazdıran programın 
algoritma ve akış diyagramını oluşturunuz. 


Algoritma: 

1. Başla 

2. sayi=0, toplam=0 değişkenlerini al 

3. şayi değerini gir 

4. Eğer sayi<0 ise devam et, değilse 
toplam=toplam+sayi işlemini yap ve 
3’egit 

6. Yazdır toplam 

7. Bitir 


Açıklama: 

Bu soruda yine kontrol değimlerini 
kullanmayı pekiştirmek hedeflenmişir. 
Belirli bir koşula göre sayı girişinin 
gerçekleştirilmesi ve aynı zamanda 
koşula uygun sayı girilmişse 
toplanarak sonucun ekrana 
yazılmasının çözümü yapılmaktadır. 
Burada dikkat edilmesi gereken girilen 
son değerin (negatif sayının) toplama 
eklenmeyecek olmasıdır. 


Ekran Çıktısı: 



Akış Diyagramı: 


Başla 
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C Kodu: 

#include<stdlib.h> 
#incIude<stdio.h> 
int sayi=0,toplam=0; 
int main(){ 
while(sayi>=0){ 

printlf'sayi giriniz= "); 
scanf("%d",&sayi); 
if(sayi>=0) 
toplam=toplam+sayi; 

} 

printff "Negatif şayi girdiniz...\r\n"); 
printlf "Girilen Sayilarin toplami= 
%d\r\n”,toplam); 
systenı("PAUSE"); 
return 0; 

} 


C# Kodu: 
namespace ak 
{ 

class Program { 

static void Main(string[] args) { 
int sayi=0,toplam=0; 
while (şayi >= 0) { 

Console.Write("sayı giriniz="); 
şayi = Convert.Tolnt32(Console.ReadLine()); 
ifl[sayi>=0) 
toplam += şayi; 

} 

Console.WriteLine("Negatif sayı girdiniz"); 
Console.WriteLine("Toplam=" + toplam); 
Console.ReadLineO; 


} 


} 


Vb.Net Kodu: 

Modüle Modulel 
Sub MainO 

Dim şayi, toplam As Integer 
toplam = 0 
VVhile True 

Console.Write("Lütfcn sayı değerini giriniz: ") 
şayi = Console.ReadLineO 
If şayi > 0 Then 

Console.Write(''Girdiğiniz sayıların Toplamı: " + toplam.ToStringO) 
Exit While 
End If 


toplam = toplam + şayi 
End VVhile 


Console. ReadLine() 

End Sub 
Eııd Modüle 

Java Kodu: 

import java.util.Scanner; 
public class SayiGirisiToplam { 

public static void main(String[] args){ 
int sayi=0, toplam=0; 

Scanner oku=new Scanner(System.in); 
while(sayi>=0){ 

System.out.print("sayi giriniz="); 
sayi=oku.nextlnt0; 

if(sayi>=0) 

toplam =topIam+sayi; 

} 

System.out.println("Negatif Şayi girdiniz"); 
System.out.println("Top!am= "+toplam); 

> 

} 
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51. 0 sayısı girilene kadar sayı girişini sağlayan ve bu sayıların 
ortalamasını hesaplayıp sonucu ekrana yazdıran programın 
algoritma ve akış diyagramını oluşturunuz. 


Algoritma: 

1 .Basla 

2. şayi, toplam=0, ort=0,sayaç=0 
değişkenlerini al 

3. şayi değerini gir 

4. Eğer sayi=0 ise devam et, değilse 
sayaç=sayaç+1, 

toplam=topIam+sayi işlemlerini 
yap ve 3’e git 

5. Eğer sayaç=0 ise Yazdır “ilk 
girdiğiniz şayi O’dır’Ve 8’e git, 
değilse devam et 
6.ort=toplam/sayaç işlemini yap 

7. Yazdır ort 

8. Bitir 


Açıklama: 

Bu soruda 0 sayısı girilene kadar 
sayı girişi sağlanacaktır. Daha sonra 
0 sayısı girildiğinde giriş 
sonlanacak ve girilen sayıların 
ortalaması hesaplanacaktır. Dikkat 
edilmesi gereken noktalardan biri 
ilk sayı girişinin 0 olması 
durumunda bölen sayı 0 olacaktır. 
Böylece program O’a bölme hatası 
verecektir. Bu yüzden ilk sayı 0 ise 
bunu kontrol etmemiz 
gerekmektedir. Diğer bir nokta ise 
ortalama için kaç tane sayı girişi 
yapıldığını ve sayıların toplamını 
hesaplamak olacaktır. Burada 0 
sayısını toplama ve sayı adetine 
eklememiz yanlış ortalama 
hesaplamamıza sebep olacaktır. 


Ekran Çıktısı: 



Akış Diyagramı: 


S -' 
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C Kodıı: 

C# Kodu: 

#include<stdlib.h> 

namespace ak{ 

#include<stdio.h> 

class Program { 

float sayi,toplam=0,sayac=0; 

static void Main(string[] args) { 

float ort=0; 

int sayi=0,toplam=0,sayac=0; 

int main(){ 

float ort=0; 

printf("sayi giriniz= "); 

Console.Write("sayı giriniz="); 

scanft"%f',&sayi); 

şayi = Convert.Tolnt32(Console.ReadLine()); 

while(sayi!=0){ 

while (şayi != 0) { 

sayac=sayac+1; 

sayac++; 

toplam=toplam+sayi; 

toplam += şayi; 

printlfsayi giriniz= "); 

Console.Write(''sayı giriniz="); 

scanf("%f',&sayi); 

şayi = 

} 

Coııvert.ToInt32(Console.ReadLine()); 

if(sayac=0) 

} 

printl("ilk girdiğiniz şayi 0 \r\n"); 

if (sayaç = 0) 

else 

Console.WriteLine("ilk sayınız O'dır”); 

ort=toplaın/sayac; 

else 

printfÇ'Girilen Sayilariıı ortalamasi= 

ort = (float (toplam / sayaç; 

%f\r\n",ort); 

Console.WriteLine("Girilen sayıların 

system("PAUSE"); 

Ortalama=" + ort); 

return 0; 

} 

Console.ReadLineO; 

} 

> > 

Vb.Net Kodu: 

Modüle Modüle 1 


Sub Main() 


Dim şayi, toplam, sayaç As Integer 
Di m ort As Double 
toplam = 0 

While True 


Console.Write("Lütfen sayı değerini giriniz: ") 

şayi = Console.ReadLineO 

If şayi = 0 Tlıen 

Exit While 

Else 


sayaç = sayaç + 1 
toplam = toplam + şayi 


End If 

End While 

If sayaç o 0 Then 


ort = toplam / sayaç 


Console.Write("Ortalama'' + ort.ToStringO) 

Else 


Console.Write("İlk Girdiğiniz Sayı 0 dır") 

End If 

Console.ReadLineO 


End Sub 

End Modüle 
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52. Adınızı ve soyadınızı alt alta yazdıran programın algoritma ve akış 
diyagramını oluşturunuz. 


Algoritma: 


Ekran Çıktısı: 


1 .Başla 

2. ad= “Murat”, soyad= 
“Aslanyürek” değişkenlerini al 

3. Yazdır ad 

4. Yazdır soyad 

5. Bitir 


Murat 

Aslanyurek 

Devan etnek için bir tuşa basın . . . 


Akış Diyagramı: 


Açıklama: 

Bu soruda temel amaç ekrana metin 
ifadelerini yazdırmaktır. Metinsel 
ifadeler değişkenlere atanacağında 
tırnak içerisinde gösterilmesi 
gerekmektedir. Algoritma ve akış 
diyagramlarında alt satıra geçme 
işlemini göstermek önemli 
olmamakla beraber programlama 
dillerinde önemlidir. 


Q Başı» J 
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C Kodu: 

#include<stdlib.h> 

#include<stdio.h> 

main(){ 

printf("Murat"); 

printf("\n"); //alt satıra geçme komutu 

printf("Aslanyurek\r\n"); 

system("PAUSE"); 

retum 0; 

} 

C# Kodu: 

namespace ak{ 
class Program { 

static void Main(string[] args) { 

Console.WriteLine("Adem"); 
Console.WriteLine("KORKMAZ"); 
Console.ReadLine(); 

} 

} 

} 

Vb.Net Kodu: 


Modüle Modüle! 

Sub Main() 

Console.Write("Murat”) 

Console.Write("Arslanyürek") 

Console.ReadLinef) 

End Sub 

End Modüle 


Java Kodu: 


public class AdSoyad ( 



public static void main(String{] args){ 
System.out.println("Murat")y/ prim yanına gelen İn 

//ifadesi alt satıra geçmesini sağlar 
System.out.printC'Aslanyürek"); 

) 

i_ 
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53. Dışardan girilen 20 sayıdan negatiflerin ve pozitiflerin sayısını 

hesaplayıp sonucu ekrana yazdıran yazdıran programın algoritma 
ve akış diyagramını oluşturunuz. 


Algoritma: 

1. Başla 

2. ns=0, ps=0, sayaç=0, şayi 
değişkenleri al 

3. şayi değerini gir 

4. sayac=sayaç+l işlemini yap 

5. Eğer sayaç>20 ise 8’e git, değilse 
devam et 

6. Eğer sayi<0 ise ns=ns+l işelmini 
yap ve 3’e git, değilse devam et 

7. Eğer sayi>0 ps=ps+l işlemini yap ve 
3’e git, değilse devam et 

8. Yazdır ns, ps 

9. Bitir 

Açıklama: 

Bu soruda hem 20 sayı girişin kontrolü, 
hem de pozitif ve negatif kontrolü 
yapılmaktadır. Sayı girişi 
tamamlandığında pozitif, negatif 
kontrolünü yapmaması gerekmektedir, 
ns ve ps değişkenleri sırasıyla negatif 
ve pozitif sayıların sayısını 
tutmaktadır. Bu sorunun çözümünde 7. 
adımdaki koşulu yazmadan 6. adımda 
değilse ps=ps+l olarak devam edersek 
0 kontrolünü kaçırmış oluruz. Sayı 0 
olarak girildiğinde herhangi bir 
arttırma işlemi yapılmaması gerekiyor. 


Akış Diyagramı: 




Ekran Çıktısı: 
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C Kodu: 

C# Kodu: 

#include<stdlib.h> 

namespace ak{ 

#include<stdio.h> 

class Program ( 

#include<stdio.h> 

static void Main(string[] args) { 

int sayi,ns=0, ps=0; 

int ns = 0, ps = 0, şayi; 

main(){ 

for(int i=l;i<=20û++) { 

for(int sayac=0;sayac<20;sayac++){ 

Console.VVrite(”sayi giriniz="); 

printfl;"sayi giriniz= "); 


scanfT%d",&sayi); 

sayi=Convert.ToInt32(Console.ReadLinc()); 

ifl[sayi<0) 

if(sayi>0) 

ns=ns+1; 

ps++; 

İf(sayi>0) 

else ifl[sayi<0) 

ps=ps+1; 

\ 

ns++; 

printf("Negatiflerin Sayisi= 

Console.WriteLine("Pozitiflerin sayısı-’+ps); 

%d\r\n",ns); 

Console.WriteLine("Negatiflerin sayısı="+ns); 

printfC'Poziliflerin Sayisi= 

Console.ReadLineO; 

%d\r\n",ps); 

) 

system("PAUSE"); 

} 

returrı 0; 

) 

} 

Vb.Net Kodu: 


Modüle Modulel 


Sub Main() 


Dim sayi(20) As Integer 


Dim ns, ps As Integer 


For index = I To sayi.Length - 1 


Console.Write(”{0) .Sayiyi Giriniz", index.ToString()) 

sayi(index) = Console.ReadLineO 

If sayi(index) < 0 Then 


ns = ns + 1 


Else 


ps = ps + 1 


End If 


Next 


Console.Write("Negatif Sayı Sayısı: " + ns.ToStringO + ” Pozitif Sayı Sayısı: " + 

ps.ToSlrıngO) 


Console.ReadLineO 


End Sub 


End Modüle 


Java Kodu: 


import java.util.Scanner; 


public class NegSayPozSay { 


public static void main(String[] args){ 

int şayi, rıs=0,ps=0; 


for(int sayac=0;sayac<5;sayac-H-)( 

Scanner oku=new Scanııer(System.in); 

System.ouLprint(”sayi giriniz="); 

sayi=oku.nextIntO; 

if(sayi<0) 


ns=ns+l; 
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if(sayi>0) 

ps=ps+1; 

} 

System.out.println("Negatiflerin Sayısı= "+ns); 
System.out.printlnC'Pozitiflerin Sayısı= ”+ps); 
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54.1 ile 100 arasındaki tek sayılan bulup ekrana yazdıran programın 
algoritma ve akış diyagramını oluşturunuz. 


Algoritma: 

1.Başla 

2.i=0, kalan değişkenlerini al 
3.i=i+l işlemini yap 

4. kalan=i % 2 işlemini yap 

5. Eğer kalan=l ise Yazdır i, 
değilse devam et 

ö.Eğer i=100 ise devam et, değilse 3’e git 
7. Bitir 

Açıklama: 

Bu soruda mod işlemi uygulanmıştır. Bir 
sayının tek olabilmesi için 2’ye 
bölündüğünde kalan 1 olması 
gerekmektedir. Bunun için “%” operatörünü 
kullandık. Bu operatör sayesinde mod işlemi 
gerçekleşerek bir sayının başka bir sayıya 
bölündüğünde kalanın kaç olduğu 
hesaplanmaktadır. 

Ekran Çıktısı: 


I- 3- 5- 7-}-11-11-15-1?-1?- 21- 23- 25- 27- 21- 31- 33- 35- 3?- M-U-1 
- fi-17- 4!- 51- 53- 55- 57- 51- 51- 53- 55 - 57- 51- 71- 73- 75- 77- TE İl-1 
-15-17- M- II-13-15-17- !J- ban etnik için bir tuşa buu... 


Akış Diyagramı: 


S -N 

I Başla 
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C Kodu: 

#include<stdlib.h> 

#include<stdio.h> 
int kalan, i; 
main(){ 

for( i=1 ;i<= 100;i++) { 
kalan=i%2; 
ifl[kalan—1) 

CU Kodu: 
namespace ak { 
class Program { 

static void Main(string[] args) { 

for (int i = 1 ; i <= 100; i++) 
if (i % 2 = 1) 

Console.WriteLine(i); 

Console. ReadLineO; 

> 

printfC%d- ",i); 

> 

} 

} 

system("PAUSE”); 
return 0; 

} 


Vb.Net Kodu: 

Modüle Modulel 

Sub Main() 

Dim i, kalan As Integer 

Whilei <= 100 
i = i + 1 

kalan = i Mod 2 

If kalan = 1 Then 
Console.WriteLine(i) 

End If 

End While 

Console.ReadLine() 

End Sub 

End Modüle 


Java Kodu: 



public class TekYazdir { 

public static void main(String(] args){ 
int i,kalan; 

for(i= I ;i<= 100;i++) { 
kalan=i%2; 
if(kalan=l) 

System.out.println(i); 

} 

} 
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55. Dışardan girilen 20 sayıdan çiftlerin ve teklerin ortalamasını bulup 
ekrana yazdıran programın algoritma ve akış diyagramını 
oluşturunuz. 


Algoritma : 

I .Başla 

2. tektop=0, cifttop=0, şayi, i=0, 
tekort=0, çiftort=0, kalan, teks, cifts 
değişkenlerini al 

3. şayi değerini gir 
4.i=i+l işlemini yap 

5. kalan=sayi%2 işlemini yap 

6. Eğer kalan=l ise tektop=tektop+sayi 
ve teks=teks+l işelemlerini yap, 
değilse çifltop=çifttop+sayi ve 
çifts=çifts+l işlemlerini yap 

7. Eğer i=20 ise devam et, değilse 3’e 
git 

8. Eğer çifts=0 ise Yazdır “Hiçbir Çift 

Sayı Girilmemiştir”, değilse 

çiftort=çifttop/çifts işlemini yap 

9. Eğer teks=0 ise Yazdır “Hiçbir Tek 

Sayı Girilmemiştir”, değilse 

tekort=tektop/teks işlemini yap 

10. Yazdır çiftort, tekort 

11. Bitir 

Açıklama: 

Bu soruda 20 sayı kontrolü 

yapılmasının yanı sıra çiftlerin, 

teklerin ayrı ayrı toplamları 
hesaplanmaktadır. Ayrıca ortalamayı 
bulabilmek için hem çift sayıdan kaç 
adet ve tek sayıdan kaç adet olduğunu 
hesaplamamız gerekmektedir. Şayi 
kontrolü için i değişkeni, teks ve çifts 
sırasıyla tek sayıların, çift sayıların 
adetini hesaplamak için kullanılmıştır. 
Tektop ve çifttop değişkenleri sırasıyla 


teklerin, çiftlerin toplamları için 
kullanılmıştır. Bu soru tiplerinde dikkat 
etmemiz önemli noktalardan biri eğer hiç 
çift sayı ya da tek sayı girilmemişse 0’a 
bölme hatası ile karşılaşmamız mümkün 
olacaktır. Bunun için çiftlerin ve teklerin 
sayısı kontrol edilmelidir. 

Akış Diyagramı: 


Bap 
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Ekran Çıktısı: 


1. Sayiyi Girin= 12 

2. Sayiyi Girin= 12 

3. Sayiyi Girin= 3 

4. Sayiyi Girin= 4 

5. Sayiyi Girin= 5 

6. Sayiyi Girin= 23 

7. Sayiyi Girin= 23 

8. Sayiyi Girin= 12 

9. Sayiyi Girin= 1 

10. Sayiyi Girin= 1 

11. Sayiyi Girin= 1 

12. Sayiyi Girin= 1 

13. Sayiyi Girin= 2 

14. Sayiyi Girin= 2 
İS. Sayiyi Girin= 3 

16. Sayiyi Girin= 4 

17. Sayiyi Girin= 5 

18. Sayiyi Girin = 6 

19. Sayiyi Girin= 1 

20. Sayiyi Girin= 8 
Çiftlerin Ortalanasi= 6.888889 

Teklerin Ortalamasi= 6.090909 
Deuan etmek için bir tuşa basın . 


C Kodu: 

C# Kodu: 

#incIude<stdio.h> 

namespace ak { 

int kalan, i, tektop=0,cifttop=0, teks=0. 

class Program { 

cifts=0,sayi; 

static void Main(string[] args) { 

float tekort=0, ciftort=0; 

int şayi, i. tektop = 0, cifttop = 0, cifts = 

main(){ 

0, teks = 0; 

for(i= 1 ;i<=20;i++) { 

float ciftort=0, tekort=0; 

printf|;"%d. Sayıyı 

for (i = 1; i <= 20; i++) 

Girin= ”,i); 

{ 

scanf("%d",&sayi); 

Console.Write("Sayı giriniz^"); 

kalan=sayi%2; 

şayi = 

İf(kalan=0){ 

Convert.ToInt32(Conso!e.ReadLine0); 

if (şayi % 2 = 1) 

ci ft top=c i fttop+say i; 

{ 

cifts=cifts+l; 

teks++; 

} 

tektop += şayi; 

else{ 

} 

else 

tektop=tektop+sayi; 

{ 

teks=teks+l; 

cifts++; 

} 

} 

if{cifts!=0) 

cifttop += şayi; 

i 

} 

ciftort=cifttop/cifts; 

if (cifts != 0) 

else 

ciftort = (float)cifttop / cifts; 

printfl[”Hiçbir çift sayı 

else 

girilmemiştir..."); 

Console.WriteLine("Hiçbir çift sayı 

iftteks!=0) 

girilmedi"); 

tekort=tektop/teks; 

if (teks != 0) 

else 

tekort = (float)tektop / teks; 

printft"Hiçbir tek sayı 
girilmemiştinJj)^^ 

else 
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Console.WriteLine("Hiçbir tek sayı 

printfî"Çiftlerin Ortalaması= 

girilmedi"); 

%f',ciftort); 

Console.WriteLine(”Tek sayıların 

printtT\n"); 

ortalaması=" + tekort); 

printfl;"Teklerin Ortalaması= 

Console.WriteLine("Cift sayıların 

%f',tekort); 

ortalaması=" + ciftort); 

> 

Console. ReadLine(); 

) 

} 

J - 


Vb.Nel Kodu: 


Modüle Modulel 
Sub Main() 

Dim sayi(20) As Integer 
Dini ns, ps, nt, pt, ortp, ortn As Integer 
For index = 1 To sayi.Length - I 
Console.Write("{0} .Sayiyi Giriniz", indcx.ToString()) 
sayi(index) = Console.ReadLine() 

If sayi(index) < 0 Then 
ns = ns + 1 
nt = nt + index 
Else 

ps = ps + 1 
pt = pt + index 
End If 
Next 

ortn = nt / ns 
ortp = pt / ps 

Console.Write("Negatif sayılann ortalaması {0}, Pozitif sayıların ortalaması {1}”, ortn, 

ortp) 

Console.ReadLine() 

End Sub 
End Modüle 

Java Kodu: 


import java.util.Scanner; 
public class TekCiftOrt { 

public static void main(String[] args){ 

int şayi, cifttop=0, tektop=0, cifts=0, teks=0,kalan=0; 
float ciftort=0, tekort=0; 

Scanner oku=new Scanner(System.in); 


for(int i=l;i<=20;i++){ 

System.out.print("sayi giriniz="); 
sayi=oku.nextInt(); 
kalan=sayi%2; 
if(kalan=0){ 

ci fttop=cifttop+sayi; 
cifts=cifts+l; 

> 

else{ 

tektop=tektop+sayi; 

teks=teks+l; 
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} 

} 

ifl[cifts!=0) 

ci flört=ci fttop/ci fls; 

else 

System.out.println("Hiçbirçifl sayı girilmemiştir..."); 
if(teks!=0)” 
tekort=tektop/teks; 
else 

System.out.printlıı("Hiçbir tek sayı girilmemiştir..."); 
System.out.printlnC'Çiftlerin Ortalaması 3 "+ciflort); 

System.out.println("Teklerin Ortalaması= "+tekort); 


56. 0 ile 100 arasındaki sayıların 7’ye bölümünden kalan 3 olan 

sayıların kaç tane olduğunu hesaplayıp ekrana yazdıran programın 
^jdgontma^ve^akış^li^agran^ 


C Kodu: 


I 


C# Kodu: 
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Algoritma: 


Akış Diyagramı: 


i .Başla 

2.i=0, k, adet=0 değişkenlerini al 

3. k=i%7 işlemini yap 

4. Eğer k=3 ise adet=adet+l işlemini yap, 
değilse devam et 

5. Eğer i=100 ise devam et, 
değilse i=i+l işlemini yap ve 3’e git 

6. Yazdır adet 

7. Bitir 


Açıklama: 


Bu soruda belirlenen sayı aralığındaki 7’ye 
bölümünden 3 kalanını veren kaç sayı 
olduğu hesaplanmaktadır. Örneğin; 3,10,17 
gibi sayılar bu kurala uymaktadır. 


Ekran Çıktısı: 




#include<stdlib.h> 

namespace ak { 

# i ncl ude<stdio. h> 

class Program { 

ini adet=0, k, i=0; 

static void Main(string[] args) { 
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main(){ 

for(i=0;i<=l 00;i++) { 
k=i%7; 
iftk=3) 

{ 

adet=adet+1; 
printf("%d\r\n",i); 

) 

} 

printf("Kurala uyan %d tane şayi 
vardir\r\n",adet); 

int sayaç = 0; 

for (int i = 0; i <= 100; i++) 
if (i % 7 = 3) 
sayac++; 

Console.WriteLine("Kurala uyan 
"+sayac+" adet sayı vardır"); 

Console.ReadLineO; 

} 

> 

} 

system( "PAUSE"); 
retum 0; 

} 


Vb.Nct Kodu: 

Modüle Modulel 

Sub Main() 

Di m şayi As Integer 

For index = 1 To 100 

If (index Mod 7) = 3 Then 
şayi = şayi + 1 

End If 

Next 

Console.Write(sayi) 

Console.ReadLineO 

End Sub 

End Modüle 


Java Kodu: 



public class Mod7 { 

public static void main(String[] args){ 
int adet=0, k, i=0; 
for(i=0;i<= 100;i++) { 
k=i%7; 
if(k—3) 

adet=adet+l; 

} 

System.out.println("Kurala uyan "+adet+" tane sayı vardır"); 

} 

j_ 


207 











Algoritma ve Programlama Tamamı Çözümlü Soru Bankası 


57. 1 ile 1000 arasındaki sayıların 12ye tam bölünenlerin ortalamasını 
hesaplayıp ekrana yazdıran programın algoritma ve akış diyagramı 
oluşturunuz. 


Algoritma: 

1. Başla 

2. i=l, k, s=0, top=0, ort 
değişkenlerini al 

3. k=i%12 işlemini yap 

4. Eğer k=0 ise s=s+1 ve top=top+i 
işlemlerini yap, değilse devam et 

5. Eğer i=1000 ise devam et, değilse 
i=i+l işlemini yap ve 3’e git 

6. ort=top/s işlenini yap 

7. Yazdır ort 

8. Bitir 
Açıklama: 

Bu soru bir önceki sorunun biraz daha 
gelişmiş hali. Uygulayacağımız mantık 
aynı. Bir sayının başka bir sayıya tam 
bölünmesi kalanın 0 olması anlamına 
gelmektedir. Burda ortalama istendiği 
için sayıların adeti ile birlikte 
toplamada ihtiyacımız var. s değişkeni 
sayıların adetini, k değişkeni de kalanı 
bulmak için kullanılmıştır. 


Ekran Çıktısı: 


0rtalana= 504.000000 

Devam etnek için bir tuşa basın 


Akış Diyagramı: 
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1 " 1 -l-l — 


C Kodu: 

C# Kodu: 

#include<stdlib.h> 

namespace ak { 

#include<stdio.h> 

class Program { 

int s=0, k, i, top=0; 

static void Main(string[] args) { 

float ort=0; 

int sayaç = 0,toplam=0; 

main(){ 

float ort=0; 

for(i=l;i<=l000;i++){ 

for (int i = 1; i <= 100; İ++) 

k=i%l2; 

if(i% 12 = 0) 

ifl[k=0){ 

{ 

s++;//s=s+l ile aynı 

sayac++; 

top=top+i; 

toplam += i; 

} 

} 

( 

ort=(float)toplam/sayac; 

ort=top/s; 

Console. WriteLine("Ortalama="+ort); 

priııtff "Ortalama= %f\r\n", ort); 

Console. Read Line(); 

system("PAUSE"); 
return 0; 

> 

} 

> 

} 

Vb.Net Kodu: 

Java Kodu: 

Modüle Modulel 

public class Modl20rt { 


public static void main(String[] 

Sub MainO 

Dim ort, şayi As Integer 

For index = 1 To 1000 

If (index Mod 12) = 0 Then 

args){ 

int s=0, k, i, top=0; 
float ort=0; 
for(i= 1 ;i<= 1000;i++) { 
k=i%12; 

şayi = şayi + 1 

if(k=0){ 

ort = ort + şayi 

s++; // s=s+l ile 

End If 

aynı 

Next 

top=top+i; 

ort = ort / şayi 

) 

} 

ort=top/s; 

System.out.priııtln("Ortalama= 

”+ort); 

Console.Write(ort) 

Console. ReadLine() 

End Sub 

} 

l 

End Modüle 

• 
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58. Klavyeden girilen 20 sayıdan 15’ten büyük olanların toplamını bulup 
ekrana yazdıran programın algoritma ve akış diyagramını 
oluşturunuz. 


Ekran Çıktısı: 


Algoritma: 

1. Başla 

2. i=0, s=0, şayi değişkenlerini al 

3. şayi değerini gir 

4. i-H- işlemini yap 

5. Eğer sayi>15 ise s++ işlemini yap, 
değilse devam et 

6. Eğer i=25 ise devam et, 
değilse 3’ e git 

7. Yazdır s 

8. Bitir 


1. sayiyi giriniz=12 

2. sayiyi giriniz=34 

3. sayiyi giriniz=3 

4. sayiyi giriniz=2 

5. sayiyi giriniz=3 

6. sayiyi giriniz=4 

7. sayiyi giriniz=56 
B. sayiyi giriniz=5 

9. sayiyi giriniz=6 

10. sayiyi giı*iniz=56 

11. sayiyi giriniz=78 

12. sayiyi giriniz=6S 

13. sayiyi giriniz=54 

14. sayiyi giriniz=l 

15. sayiyi giriniz=2 

16. sayiyi girin iz=3 

17. sayiyi girin iz=4 

18. sayiyi giriniz=5 

19. sayiyi giriniz=67 

20. sayiyi giriniz=?8 

15’ten buyuk 8 tane şayi yardir 
Deuan etnek için bir tuça basın 


Açıklama: 

Bu soru yine karar yapıları kullanımı 
pekiştirilmesi hedeflenmiştir. s 
değişkeni koşula uygun kaç sayı 
olduğunu, i değişkeni de 25 adet 
sayının kontrolü için kullanılmıştır. 


Akış Diyagramı: 
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C Kodu: 

C# Kodu: 

#include<stdlib.h> 

namespace ak { 

#inc!ude<stdio.h> 

class Program { 

int s=0, i.sayi; 

static void Main(string[] args) { 

nıain(){ 

int sayaç = 0,sayi; 

for(i= 1 ;i<=20;i++) { 

for (int i = 1; i <= 20; i++) 

printff"%d. sayiyi giriniz=”,i); 

{ 

scanf("%d",&sayi); 

Console.Write("Sayı giriniz="); 

ifTsayi>l 5) 

şayi = 

s++; 

Convert.Tolnt32(Console.ReadLine()); 

> 

if (şayi > 15) 

printfî "lSlen buyuk %d tane şayi vardir\r\n". 

sayac++; 

s); 

} 

system("PAUSE"); 

Console.WriteLine("t5'den büyük "+sayac+” 

retum 0; 

> 

tane sayı vardır"); 

Console. ReadLineO; 

} 

î 

} 


Vb.Net Kodu: 


Modüle Modüle 1 
Sub Main() 

Dim sayi(20) As Integer 
Dim toplam As Integer 
For index = 1 To sayi.Length - 1 
Console.Write("{0} .Sayiyi Giriniz”, index.ToString()) 
sayi(index) = Console.ReadLineO 
If sayi(index) > 15 Then 
toplam = toplam + sayi(index) 

End If 
Next 

Console.Write(”I5 ten bQyQk olanların toplamı {0}", toplam) 
Console.ReadLineO 
End Sub 

■lava Kodu: 

import java.util.Scanner; 

public class KosulaUygunSayi { 

public static void main(String[] args){ 
int s=0, i.sayi; 

Scanner oku=new Scanner(System.in); 
for(i=l ;i<=20;i++){ 

System.outprintln(i+". sayıyı girin-'); 

sayi=oku.nextlnt0; 
if(sayi>l 5) 

s++; 

} 

System.out.println("15'ten büyük "+s+" tane sayı vardır"); 

} 
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59. Klavyeden girilen 20 sayıdan 50’den büyük ve ya eşit olanların 
toplamının 50’den küçük olanların toplamına oranını bulan 
programın algoritma ve akış diyagramını oluşturunuz. 


Algoritma: 

1.Başla 

2.i=0, b=0, k=0, şayi, oran=0 
değişkenlerini al 

3. şayi değerini gir. 

4. İ++ işlemini yap 

5. Eğer sayi>=50 ise b=b+sayi 
işlemini yap, değilse k=k+sayi 
işlemini yap 

6. Eğer i=20 ise devam et, 
değilse 3’e git 

7. Eğer k!=0 ise oran=b/k işlemini 
yap, değilse Yazdır “50’den 
küçük hiçbir sayı yoktur, oran 
hesaplanamaz” ve 9’a git 

8. Yazdır oran 

9. Bitir 

Açıklama: 

Bu soru bir önceki sorunun biraz 
daha gelişmiş halidir, b değişkeni 
koşula uygun büyük sayıların 
toplamını, k değişkeni ise küçük 
sayıların toplamını tutmaktadır. 
Dikkat edilmesi gereken nokta k, 
yani koşula uygun küçük sayıların 
toplamı 0 olması durumunda 0’a 
bölünme hatasından programı 
kurtarmak olacaktır. 7. adımda bu 
durum kontrol edilip, k 0’a eşit 
değilse bölme işlemini 
gerçekleştirmektedir, 0 ise mesaj 
verip program sonlanmaktadır. 


Akış Diyagramı: 

; Ba^la ) 


/ ı=0. b=0 

k=0. sayı 
oıaıı-0 


sayı 
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Ekran Çıktısı: 


ı gırıı 
i gir 
i gir 
i gir 
i gir 
i gir: 
i gir 
i gir 
i gir 
yi gir 
yi gir 
yi gir 
yi gir 
yi gir 
yi gir 
yi gir 
yi gir 
yi gir 
yi gir 
yi gir 
000000 
nek iç 




z=12 
z =13 
z=34 
z=45 
z =56 
z=67 
z=78 
z =89 
z=89 
iz =78 
iz =77 
iz =56 
iz =2 
iz =3 
iz =1 
iz =2 
iz =3 
iz =4 
iz =6 
iz =7 

bir tuşa basın 


C Kodu: 

C# Kodu: 

#include<stdlib.h> 

namespace ak { 

#inc!ude<stdio.h> 

class Program { 

int s=0, i.sayi, b, k; 

static void Maiıı(string[] args) { 

float oran=0; 

int b=0,k=0,sayi; 

main(){ 

float ort; 

for(i= 1 ;i<=20;i-H-) { 

for (int i = 1; i <= 20; i++) { 

printf("%d. sayiyi giriniz=”,i); 

Console.WriteC'Sayı giriniz="); 

scanf("%d'',&sayi); 

şayi = 

if(sayi>=50) 

Convert.Tolnt32(Console.ReadLine()); 

b=b+sayi; 

if (şayi >= 50) 

else 

b++; 

k=k+sayi; 

else 

) 

k++; 

if(k=0) 

} 

printf("50'den küçük sayılann 

if (k = 0) 

toplamı 0 olmamalı, oran hesaplanamaz"); 

ConsoIe.WriteLine(”50'den küçük 

else{ 

olanlar sayısı 0 olmamalıdır"); 

oran=b/k; 

else 

printfl["Oran= %f\r\n", oran); 

{ 

} 

ort = (float)b / k; 

Console.WriteLine("Oran=" + ort); 

systemÇPAUSE”); 

} 

retum 0; 

) 

Console.ReadLine(); 

> 

} 

> 

Vb.Net Kodu: 

Modüle Modüle 1 


Sub Main() 
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60. Klavyeden 0 girilinceye kadar sayı girilmesini sağlayan, bu 
sayıların, kaç tane olduğunu, toplamını ve ortalamasını bulup 
sonucu ekrana yazdıran programın algoritma ve akış 
diyagramını oluşturunuz. 


Algoritma: 

1. Başla 

2. şayi, s=0, top=0, ort 
değişkenlerini al. 

3. sayi değerini gir 

4. Eğer sayi=0 ise 5’e git, 
değilse s++ ve top=top+sayi 
işlemlerini yap ve 3’e git 

5. Eğer s=0 ise Yazdır “şayi girişi 
yapmadınız” ve 8’e git, 
değilse devam et 

6. ort=top/s işlemini yap 

7. Yazdır s, top, ort 

8. Bitir 


Açıklama: 

Bu soruda 0 girilene kadar sayı girişi 
yapılması ve bu sayılarla ilgili 
işlemler istenmiştir. Dikkat 
etmememiz gereken noktalardan biri 
ortalama gibi bölme işlemi 
yapılması gereken problemlerde 0’a 
bölme kontrolünün sağlanması 
gerekmektedir. Bu işlem 5. Adımda 
kontrol edilmiştir, s değişkeni 
sayıların adetini tutmaktadır. Dikkat 
etmemiz diğer nokta ise klavyeden 0 
sayısı girildiğinde bunu ortalamaya 
yani toplama ve sayıların adetine 
eklenmemesi gerekmektedir. 


Ekran Çıktısı: 



Akış Diyagramı: 
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C Kodu: 

#include<stdlib.h> 

#include<stdio.h> 
int sayi=-l, s=0, top=0; 
float ort; 
main(){ 

while(sayi!=0){ 

printff"sayi girin= "); 
scanff"%d”,&sayi); 
top=top+sayi; 
s++; 

} 

if(s=l) 

printfT'sayi girişi 
yapmadiniz..."); 
else{ 

ort=top/(s-l); 
printfî"\n%d. tane şayi 
girilmiştir...", s-1); 

printf( , '\ngirilen sayilarin 
toplami= %d", top); 

printf("\nOrtalama= %f\r\ıı", 

ort); 

> 

systemC’PAUSE"); 
retum 0; 

C U Kodu: 

namespace ak{ 
class Program { 

static void Main(string[] args) { 

int sayi=0,sayac=0,toplam=0; 
float ort; 
do { 

ConsoIe.Write<"Sayı giriniz="); 
şayi = 

Convert.Tolnt32(Console.ReadLineO); 

toplam += şayi; 
sayac++; 

} while (şayi != 0); 
sayaç—; 

ort = (float)toplanv'sayac; 
Console.WriteLine("Toplam=" + toplam); 
Console.WriteLine("Girilen sayı sayısı=" + 

sayaç); 

Console.WriteLine("Ortalama=" + ort); 
Console.ReadLineO; 

} 

) 

) 

Vb.Net Kodu: 

Modüle Modulel 

Sub MainO 

Dim şayi, kactane As Integer 
Console.Writc("Sayı giriniz:") 
şayi = Console.ReadLineO 

kactane = kactane + 1 

While şayi o 0 

Console.Write("Sayı giriniz: ") 
şayi = Console.ReadLineO 
kactane = kactane + 1 

End While 

Console.WriteLine("Girilen sayı sayısı 
Console.ReadLineO 

End Sub 

End Modüle 

{0}", kactane) 

Java Kodu: 

import java.util.Scanner; 
public class SayiGirisiOrt { 

public static void main(String[] args){ 
int sayi=-l, s=0, top=0; 
float ort; 

Scanner oku=new Scaııner(System.in); 
while(sayi!=0){ 
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System.out.println("sayi girin= "); 

sayi=oku.nextlnt(); 

top=top+sayi; 

s++; 

} 

ifl[s=l) 

System.out.printlnO’sayi girişi yapmadınız..."); 

else{ 

ort=top/(s-l); 

System.out.println((s-l)+" tane sayı girilmiştir..."); 
System.out.printlnC’girilen sayıların toplamı= ”+top); 
System.out.println("Ortalama= "+ ort); 



- 
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61. Klavyeden 0 girilinceye kadar sayı girilmesini sağlayan, negatif ve 
pozitifleri ayn ayn toplayıp ekrana yazdıran programın algoritma 
ve akış diyagramını oluşturunuz. 


Algoritma: 

1. Başla 

2. şayi, ntop=0, ptop=0 değişkenlerini 
al. 

3. şayi değerini gir 

4. Eğer sayi=0 ise 6’ya git, 
değilse devam et 

5. Eğer s<0 ise ntop=ntop+sayi işlemini 
yap ve 3’e git, değilse ptop=ptop+sayi 
işlemini yap ve 3’e git 

6. Yazdır ntop, ptop 
8.Bitir 

Açıklama: 

Bu soru bir önceki soruya benzer ancak 
biraz daha basit sorudur. Bölme işlemi 
olmadığından 0 kontrolü yapmamıza 
gerek yok. Pozitif sayıların toplamını 
tutan değişken ptop, negatif sayıların 
toplamını tutan değişken ise ntop’tur. 


Ekran Çıktısı: 


:ayı gırın= 12 

ayi giı*in = -3 

ayi girin= 24 

ayi giı*in = -1 

ayi girin= -2 

ayi girin= 11 

ayi girin= 0 

legatiflerin Toplani= -6 

'ozitifleı-in Toplami= 47 

leuan etnek için bir tuça basın 


Akış Diyagramı: 
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C Kodu: 

C# Kodu: 

#include<stdlib.h> 

namespace ak{ 

#include<stdio.h> 

class Program { 

int sayi=-l, ntop=0, ptop=0; 

static void Main(string[] args) { 


int şayi = -1, ntop = 0, ptop = 0; 

main(){ 

while (şayi != 0) { 

while(sayi !=0){ 

Console. Write("Sayı giriniz="); 

printf("sayi girin= "); 

şayi = 

scanf("%d",&sayi); 

Con vert.Tolnt32(Console. Read Li ne()); 

ifi[sayi<0) 

if (şayi > 0) 

ntop=ntop+sayi; 

ptop += şayi; 

else 

ptop=ptop+sayi; 

} 

printfV'Negatiflerin Toplami= %d\n".ntop); 

else 

ntop += şayi; 

} 

Console. WriteLi ne( " Pozi t i f say ı ları n 

printfV'Pozitiflerin Toplami= %d\n",ptop); 

toplamı=" + ptop); 

system("PAUSE"); 

Console. WriteLine("Negatif sayıların 

rctum 0; 

toplamı=" + ntop); 

} 

Console. ReadLi ne(); 

} 

} 

> 

Vb.Net Kodu: 


Modüle Modulel 


Sub Main() 


Dim şayi, ns, ps As Integer 


Console.Write("Sayı giriniz:") 


şayi =Console.ReadLine() 

If şayi < 0 Then 
ps = ps + 1 

Else ns = ns + 1 

End If 

While şayi o 0 


Console.Write("Sayı giriniz: ") 
şayi = Console.ReadLine() 

If şayi < 0 Then 
ps = ps + 1 

Else ns = ns + 1 

End If 


End While 


Console.WriteLine("Negatif {0}, Pozitif {1}", ns, ps) 

Console. ReadLinef) 

End Sub 


Java Kodu: 

import java.util.Scanner; 


public class SayiGirisNPTop { 


public static void main(String[] args) { 

in^^i^l, ntop=0, ptw=0; 
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Scanner oku=new Scanner(System.in); 
while(sayi!=0){ 

System.out.println("sayi girin= "); 

sayi=oku.nextInt(); 

iftsayi<0) 

ntop=ntop+sayi; 

else 

ptop=ptop+sayi; 

} 

System.out.println(''Negatiflerin Toplamı= "+ntop); 
System.out.prirıtln("Pozitiflerin Toplamı= "+ptop); 

î_ 
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62. x =-—- formülünün sonucunu ekrandan girilecek değerler 

için hesaplayıp x değerini ekrana yazdıran programın algoritma ve 
akış diyagramını oluşturunuz. 


Algoritma: 

1. Başla 

2. x=0, a, b, c değişkenlerini al 

3. a, b, c değerlerini gir 

4. Eğer a!=0 ise x= (-b+(sqrt(b A 2- 
4*a*c)))/2*a işlemini yap, 
değilse 6’ya git. 

5. Yazdır x ve 7’ye git 

6. Yazdır “a 0 değerini alamaz” 

7. Bitir 
Açıklama: 

Bu soruda temel matematiksel ifadelerin 
kullanımı üzerinde durulmuştur. sqrt() 
fonksiyonu karekök hesaplaması için 
kullanılmıştır. b A 2 ifadesi b’ni karesini 
hesaplamaktadır. Bunun yerine pow(b,2) de 
kullanılabilirdi, a değeri 0 olması 
durumunda O’a bölme hatasıyla 
karşılaşmamak için 4. adımda bu kontrol 
yapılmıştır. 



Akış Diyagramı: 
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C Kodu: 


C# Kodu: 


#include<stdlib.h> 

#include<stdio.h> 

#include<math.h> 

int a,b,c; 

float x; 

nıain()( 

printlf’a değerini girin= ") 

scanf("%d",&a); 

printl("b değerini girin= ") 

scanfi("%d",&b); 

printf("c değerini girin= ") 

scanf("%d",&c); 

ifla!=0){ 


{ 

x =(doub!e) (-b + (Math.Sqrt(Math.Pow(b, 2) - 4 * 
a * c))) / (2 * a); 


namespace ak { 
class Program { 


static void Main(string[] args) { 
int a,b,c; 
double x = 0; 

Console.Write("a sayısını giriniz="); 
a = Convert.ToInt32(Console.ReadLine()) 
Console.Write("b sayısını giriniz="); 

b = Convert.ToInt32(Console.ReadLineO) 

Console.Write("c sayısını giriniz="); 
c = Convert.ToInt32(Console.ReadLine()) 
if (a != 0) 


x={-b+(sqrt(pow(b,2)- 

(4*a*c))))/(2*a); 

printfl["x= %f\n",x); 

} 


} 


Console.Write("x=" + x); 


else 

printf\"a değeri 0 olamaz..."); 


Console.Write("a değeri 0 olamaz!' 1 ); 
Console.ReadLineO; 


else 


system("PAUSE"); 
retum 0; 

} 


} 


} 


i 


Vb.Net Kodu: 


Modüle Modulel 
Sub MainO 
Dini a,b,c As Integer 
Dim x as float 

Console.Write("a değerini giriniz:") 
a= Console.ReadLineO 
Console.Write("b değerini giriniz:") 
b= Console.ReadLineO 
Console.Write("c değerini giriniz:") 
c= Console.ReadLineO 
if aoOThen 

x=(-b+(sqrt(pow(b,2)-{4*a*c))))/(2*a); 

Console.WriteLine(x) 

else 

Console.Write (”a değeri 0 olamaz...") 

end if 

Console.ReadLineO 
End Sub 

Java Kodu: 

import java.util.Scanner; 
public class Denklem2 { 

public static void maitı(String(] args){ 


int a,b,c; 
float x=0; 

Scanner oku=new Scanner(System.in); 
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a=oku.nextInt(); 

System.out.printlnC'b değerini girin= "); 
b=oku.nextlnt(); 

System.out.println("c değerini girin= "); 

c=oku.next!nt(); 

if(a!=0){ 

x=(float) ((-b+(Math.sqrt(Math.pow(b,2)-4*a*c)))/2*a); 
System.out.println("x= "+x); 

} 

else 

System.out.println("a değeri 0 olamaz..."); 

} 

} 
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63. Klavyeden kütlesi (m), hızı (v) ve yerden yüksekliği (h) olarak 
girilen maddenin Potansiyel (Ep) ve Kinetik (Ek) enerjisini 
hesaplayan programın algoritma ve akış diyagramını 
oluşturunuz. (g=10, Ep=m.g.h, Ek=i.m.v 2 ) 


Algoritma: 

1. Başlat 

2. g=10, Ep=0, m, h, Ek=0, v değişkenlerini 
al 

3. m, h, v değerlerini gir 

4. Ep=m*g*h işlemini yap 

5. Ek=l/2*m*v*v 

6. Yazdır Ep, Ek 

7. Bitir. 

Açıklama: 

Bu soru temel matematiksel ifadeleri doğru 
kullanarak çözülebilen basit bir sorudur. 
v*v ifadesi yerin v A 2, ya da pow (v,2) 
fonksiyonu da kullanılabilirdi. 


Ekran Çıktısı: 


Kütle değerini girin= 3 
Vukseklik değerini girin= 5 
His değerini girin= 50 
Ep= 150 

Ek= 3750.000000 

Devan etnek için bir tuça basın 


Akış Diyagramı: 
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C Kodu: 

C# Kodu: 

#include<stdlib.h> 

namespace ak { 

#include<stdio.h> 

class Program { 

#include<math.h> 

static void Main(string[] args) { 

int g=l 0. Ep=0, m, h, v; 

int m, h,v, g=10, Ep = 0; 

tloat Ek=0; 

float Ek = 0; 

Console.Write("Kütleyi giriniz="); 

main(){ 

m = 

printfT’Kutle değerini girin= "); 

Convert.ToInt32(Console.ReadLine()); 

scanff "%d",&rn); 

Console.Write(”Yükseklik değeri ni 

printfÇ'Yukseklik değerini girin= "); 

giriniz=''); 

scanfl["%d",&h); 

h = 

printff'Hiz değerini girin= "); 

Convert.ToIııt32(Console.ReadLine()); 

scanft"%d",&v); 

Console.Write("Hız değerini 

Ep=m*g*h; 

giriniz="); 

Ek=(float) l/2*m*v*v; 

V = 

printfl["Ep= %d\r\n",Ep); 

Convert.Tolnt32(Console.ReadLine()); 

printf(''Ek= %f\r\n",Ek); 

Ep = m * g * h; 

Ek = (float)l / 2*m*v*v; 

systemf" PAUSE"); 

Console.WriteLiııe("Ep='’+Ep); 

retum 0; 

Console.WriteLine("Ek="+Ek); 

} 

Console.RcadLiııeO; 

} 

> 

1 

Vb.Net Kodu: 


Modüle Modulel 


Sub Main() 


Dim m, v, h, g, ep, ek As Integer 
Console.Write("m Değerini giriniz: ”) 
m = Console.ReadLine() 

Console.Write("v Değerini giriniz: ") 
v = Console.ReadLine() 

Console.Write("h Değerini giriniz: ") 
h = Console.ReadLine() 

g= 10 

ep = m * h * g 
ek=l/2*m*v*v 


Console.VVriteLineÇPotansiyel Enerji {0}, Kinetik Eneıji {1}", ep, ek) 

Console.ReadLine() 

End Sub 


End Modüle 


Java Kodu: 


import java.util.Scanner; 
public class EkEp { 


public static void main(String[] args){ 

int g=10, Ep=0, m 
float Ek=0; 

, h, v; 

Scanner oku=new Scanner(System.in); 
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System.ouLprintln("Kütle değerini girin= "); 
m=oku.nextlnt(); 

System.out.println("Yükseklik değerini girin= "); 
h=oku.nextInt(); 

System.out.println("Hız değerini girin= "); 
v=oku.nextInt(); 

Ep=m*g*h ; 

Ek=(float) l/2*m*v*v; 

System.out.println("Ep= "+Ep); 
System.out.println("Ek= "+Ek); 
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64. Klavyeden girilen pozitif bir sayıdan başlayıp, l'e kadar olan 
sayıları ekrana yazan programın algoritma ve akış diyagramını 
oluşturunuz. 


Algoritma: 

1. Başla 

2. şayi değişkenini al 

3. şayi değerini gir 

4. Eğer sayi>0 ise devam et, 
değilse 7’ye git 

5. Yazdır şayi 

ö.Eğer sayi=l ise 8’e git, 

değilse sayi=sayi-l işlemşni yap ve 5’e git 

7. Yazdır “Pozitif Sayı Girmediniz” 

8. Bitir 
Açıklama: 

Bu soruda pozitif bir sayı girilmediği 
durumda program sonlanacaktır. Pozitif bir 
sayı girildiğinde ise ekrana o sayıdan 
başlayıp l’e kadar sayıları ekrana 
yazacaktır. Örneğin 3 girilmesi durumunda 
3 2 1 sayılarını yazdıracaktır. Pozitif sayı 
kontrolü 3. adımda yapılmaktadır. Bu 
sorunun çözümünde sayaç arttırılarak 
yapılması yerine, ilk olarak girilen sayı 
ekrana yazdırılmıştır, daha sonra 1 
eksilterek işleme devam edilmiştir. Ekrana 
ilk olarak l’i yazdırsaydık sayaç kullanıp, 
sayaç sayaç’ı arttırarak sayi’ya eşit olana 
kadar yazdırma işlemine devam edip doğru 
sonuca ulaşabilirdik. 


Ekran Çıktısı: 



Akış Diyagramı: 
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C Kodu: 

#include<stdlib.h> 
#include<stdio.h> 
int şayi,i; 
main(){ 

printfÇ’Sayi Girin= "); 
scanfl["%d",&sayi); 
for( i=sayi;i>= 1 ;i—) 

printf{"%d\n",i); 
system("PAUSE"); 
rctum 0; 

} 

C# Kodu: 

namespace ak { 
class Program { 

static void Main(string[] args) { 

int şayi,i; 

Console.Write("Sayı giriniz="); 

şayi = Convert.Tolnt32(Console.ReadLine()); 

for (i = şayi; i >= 1 ;i— ) 

Console. WriteLine(i); 

Console.ReadLineO; 

> 

J 


V'b.Net Kodu: 

Modüle Modulel 

Sub Main() 

Dim şayi As Integer 

Console.Write("Pozitifsayı giriniz:") 
şayi = Console.ReadLineO 

VVhile şayi o 0 

Console. WriteLine(sayi) 
şayi = şayi - 1 

End VVhile 

Console. ReadLine() 

End Sub 

End Modüle 



Java Kodu: 

i mport java. util .Scanner; 
public class Yazdır { 

public stalic void main(Stringf) args) ( 
int sayi.i; 

Scanner oku=new Scanner(System, in); 

System.out.println("Sayı Girin= "); 

sayi=oku.nextlnt0; 

for(i=sayi;i>=I;i-) 

System.out.println(i); 

> 
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65. Klavyeden girilen iki sayı arasındaki (birinci sayıdan başlayıp ikinci 
sayıya kadar) sayılan ekrana yazıdınp ortalamasını hesaplayan 
programın algoritma ve akış diyagramını oluşturunuz. 


Algoritma: 


1. Başla 

2. sayil, sayi2 , b, k, s=0, top=0, ort=0 
değişkenlerini al 

3. sayil ve sayi2 değerlerini gir 

4. Eğer sayil>=sayi2 ise b=sayil ve 
k=sayi2 işlemlerini yap, değilse 
k=sayil ve b=sayi2 işlemlerini yap 

5. Yazdır k 

6.S++ , k++ ve top=top+k işlemlerini 
yap 

7. Eğer k<=b ise 5’e git, 
değilse devam et 

8. ort=top/s işlemini yap 

9. Yazdır ort 

10. Bitir 

Açıklama: 

Bu soruda klavyeden iki sayı girişi 
yapıldıktan sonra birinden başlayıp 
diğerine kadar olan sayıları bulmamız 
gerekmektedir. Bunun için girilen 
sayılardan hangisinin daha büyük 
olduğunu bulmak çözüme ulaşmamızı 
kolaylaştıracaktır. Bundan dolayı ilk 
önce büyük sayıyı b değişkenine, 
küçük sayıyıda k değişkeninine atadık, 
s değişkeninde kaç adet sayı olduğunu, 
top değişkeninde de bu sayıların 
toplamı hesaplanmıştır. 


Ekran Çıktısı: 



Akış Diyagramı: 
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C Kodu: 

C# Kodu: 

#include<stdlib.h> 

namespace ak { 

#include<stdio.h> 

class Program { 

int şayi 1 ,i,sayi2.b,k,top=0,s=0; 

static void Main(string[] args) { 

float ort=0; 

int şayi 1, i. sayi2, b, k, top = 0, s = 0; 

main(){ 

float ort = 0; 

printf("Sayi Girin= ”); 

Console.Write(" 1 .Sayı giriniz="); 

scanf("%d",&sayi 1); 

sayil = 

printfT'Sayi Girin= "); 

Convert.ToInt32(Console.ReadLine()); 

scanf{"%d",&sayi2); 

Console.Write("2.Sayı giriniz="); 

ifîsayi 1 >=sayi2) { 

sayi2 = 

b=sayi 1; 

Convert.ToInt32(Console.ReadLine()); 

k=sayi2; 

> 

else{ 

if(sayil >= sayi2) 

I 

b = şayi 1; 

k=sayi 1; 

k = sayi2; 

b=sayi2; 

} 

} 

else 

for(i=k;i<=b;i++){ 

{ 

printf("%d\n",i); 

k = şayi 1; 

top=top+i; 

b = sayi2; 

s++; 

} 

> 

ort=(float)top/s; 

for (i = k; i <= b; i++) 

{ 

printf("ortalama= %f\r\n", ort); 

Console. WriteLine(i); 
top = top + i; 

system("PAUSE"); 

s++; 

retum 0; 

} 

} 

ort = (float)top / s; 

Console.WriteLine("Ortalama='' +ort); 


Console.ReadLine(); 

> 

} 

> 

Vb.Net Kodu: 


Modüle Modüle 1 


Sub Main() 


Dim şayi Bas. sayiBit, ort, s, toplam As Integer 

Console.Write("Başlangıç sayısını giriniz:") 

şayi Bas = Console.Readl.ine() 


Console.Write("Bitiş sayısını giriniz: ") 

sayiBit = ConsoIe.ReadLine() 

For index = şayi Bas To sayiBit 


toplam = toplam + index 
s = s+ 1 


Console.WriteLine(index) 

Next 


ort = toplam / s 

Console.Write("Ortaması {0}”, ort) 
Console. ReadLineO 


End Sub 

End Modüle 


Java Kodu: 


import java.util.Scanner; 

-- 
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66. Dışardan girilen sayıların toplamı 30’dan fazla olduğunda kaç adet 
sayı girildiğini hesaplayan programın algoritma ve akış diyagramını 
oluşturunuz. 


Algoritma: 

1 .Başla 

2. sayi,top=0,s=0 değişkenlerini al 

3. say i değerini gir 

4. top=top+sayi ve s++ işlemlerini yap 

5. Eğer top<=30 ise 3’e git, değilse 
devam et 

6. Yazdır s 

7. Bitir 

Açıklama: 

Bu soruda s değişkeni kaç adet sayı 
girildiğini hesaplamaktadır. Sayıların 
toplamı 5. adımda kontrol 
edilmektedir. Sayıların toplamı 30’u 
aştığında s değişkeni ekrana yazdırılıp 
program sonlanacaktır. Aksi durumda 
tekrar sayı girilmesi istenecek ve 
toplama eklenecektir. 


Ekran Çıktısı: 


ayi girin = 12 
ayi girin= 3 
ayi girin= 7 
ayi girin = 8 
ayi girin= 9 
tane şayi girilmiştir 
levam etmek için bir tuşa basın 


Akış Diyagramı: 
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C Kodu: 

C# Kodu: 


namespace ak { 

#include<stdlib.h> 

class Program { 

#include<stdio.h> 

static void Main(string[] args) { 

int sayi,top=0,s=0; 

int şayi, top = 0, s = 0; 

main(){ 

wlıile (top <= 30) 

while(top<=30){ 

{ 

printffSayi girin="); 

Console.Write("Sayı giriniz="); 

scanf("%d",&sayi); 

şayi = 

s=s+l; 

Convert.ToInt32(Console.ReadLine()); 

top=top+sayi; 

} 

s = s + 1; 
top = top + şayi; 

printf("%d tane şayi 

} 

girilmistir\r\n",s); 

Console.Write(s+" tane sayı girilmiştir"); 
Console.ReadLine(); 

system("PAUSE"); 

} 

retıım 0; 

l 

1) 

Vb.Net Kodu: 


Modüle Modulel 


Sub MainO 


Dim şayi, top, s As Integer 

While True 


ConsoIe.Write(''Başlangıç sayısını giriniz:") 

şayi = Console.ReadLine() 
top += şayi 
s = s + 1 

If top > 30 Then 


Exit While 


End If 

End While 


Conso!e.Write("Girilen sayı adeti {0}", s) 

Conso!e.ReadLine() 

End Sub 


End Modüle 



Java Kodu: 


import java.util.Scanner; 
public class SayıAdeti { 

public static void ınain(String[] args){ 
int sayi,top=0,s=0; 

Scanner oku=new Scanner(Systenı.in); 
while(top<=30){ 

System.out.println("Sayi girin= "); 

sayi=oku.nextInt(); 

s=s+l; 

top=top+sayi; 

System.out.println(s+" tane sayı girilmiştir "); 

} 

! 
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67.Dışardan girilen 10 adet sayıdan en büyüğünü bulup kaçıncı 
sırada olduğunu yazan programın algoritma ve akış diyagramını 
oluşturunuz. 


Algoritma: 

1. Başla 

2. sayi, eb, sira = 1, i=0 değişkenlerini 
al. 

3. şayi değerini gir 

4. eb=sayi 

5. şayi değerini gir 

6. i=i+l işlemini yap 

7. Eğer sayi>eb ise eb=sayi ve sira=i 
işlemlerini yap, değilse devam et 

8. Eğer i=10 ise devam et değilse 5’e 
git 

9. Yazdır eb, sira 

10. Bitir 

Açıklama: 

Bu soruda girilen 10 sayıdan büyük 
olan sayının kaçıncı şuada girildiği 
hesaplanmaktadır. Sayı girişi hem 3. 
adımda hemde 5. adımda istenmiştir. 
Bunun sebebi ilk girilen sayıyı en 
büyük olarak seçmektir. Eğer sayı 
girişini sadece bir defa girmiş olsaydık, 
en büyük sayıya yani eb değişkenine 
bir sayı atamamız gerekecekti. Ancak 
bütün girilen sayılar atadığımız 
sayıdan daha küçük olduğu durumda 
en büyük sayıyı başlangıç değeri olarak 
yazdıracaktı. Böyle bir durumda 
başlangıç değeri bizim girdiğimiz 
sayılar arasında olmayacak ve sonuç 
yanlış olacak. Örneğin en büyük sayıyı 


0 olarak kabul edersek ve bütün sayıları 
negatif olarak girersek en büyük sayıyı 
girdiğimiz sayılar arasında olmayan 0 
olarak yazdıracaktır. Bu yüzden ilk 
girilen sayıyı en büyük olarak kabul edip 
sira değişkenini 1 ’den başlattık. 

Ekran Çıktısı: 


1. Şayi girin» 12 

2 . Şayi girin» 34 

3. Şayi girin» 34 

4. Şayi girin» 45 

5. Şayi girin- 6? 

Şayi girin» 90 

?. Şayi girin» 1 
i. Sayı girin» 2 

9 . Şayi girin» 3 

10. Şayi girin» 4 
En buyuk şayi* 90 
Sirasi» 6 

Devan etnek için bir tuça basın . . . 


Akış Diyagramı: 
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C Kodu: 

C# Kodu: 

#include<stdlib.h> 

namespace ak { 

#include<stdio.h> 

class Program { 

int şayi, eb, sira = 1; 

static void Main(string[] args) { 

int main(){ 

int şayi, eb, sira = 1; 

printft" 1 - Şayi girin= "); 

Console. Write(” 1. Sayı gi ri ııiz="); 

scanf("%d",&say i); 

şayi = 

eb=sayi; 

Convert.Tolnt32(Console.ReadLine()); 

for (int i = 2; i <= 10; i++){ 

eb = sayi; 

printf("%d. Şayi girin= ",i); 

for (int i = 2; i <= 10; i++) 

scanf("%d",&sayi); 

{ 

if (şayi > eb){ 

Console. Write(i+". Şayi girin= "); 

eb = şayi; 

şayi = 

sira = i; 

} 

} 

printf(''En buyuk sayı= %d\n" , eb); 

Convert.Tolnt32(Console.ReadLine()); 
i f (şayi > eb) 

eb = şayi; 

printf("Sirasi= %d", sira); 

sira = i; 

system(" P AUS E"); 

> 

retum 0; 

> 

Console. WriteLine("En büyük sayı= "+ 

> 

eb); 


Console. WriteLiııe("Sırası="+ sira); 


Console.ReadLineO; 

! } 

> 

> 

Vb.Net Kodu: 


Modüle Modulel 


Sub Main() 


Dim sayi( 10) As Integcr 


Diın MIN, MAX, siraMax, siraMin As Integer 

For index = 1 To sayi.Length - 1 


Console.Write("{0} .Sayiyi Giriniz", index.ToString()) 

sayi(index) = Console.ReadLineO 

Next 

For index = 1 To sayi.Length 


If MAX < sayi(index) Tlıen 


MAX = sayi(index) 
siraMax = index 


End İf 

If MIN > sayi(index) Then 


MIN = sayi(index) 
siraMin = index 


End If 


Next 


Console.Write("En büyük Değer {0} sırası {1}, En küçük değer {2} sırası {3}", MAX, 

siraMax, MIN, siraMin) 


Console. ReadLi ne() 

End Sub 


End Modüle 
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68. Dışardan girilen vize ve final notuna göre öğrencinin harf notunu 
hesaplayıp ekrena yazdıran programın algoritma ve akış 
diyagramını oluşturunuz.(l / /ze=%40, Final=%60, 90-100=A, 80- 
89=B, 70- 79=C, 60-69=D, 0-59=F) 


Algoritma: 


Ekran Çıktısı: 


1. Başla 

2. vize,final,ort=0 değişkenlerini al 

3. vize, final değerlerini gir 
4.ort=vize*0.40+final*0.60 işlemini 
yap 

5. Yazdır ort 

6. Eğer ort>=90 ise Yazdır “A” ve 
10’a git, değilse devam et 

7. Eğer ort>=80 ise Yazdır “B” ve 
10’a ya git, değilse devam et 

8. Eğer ort>=70 ise Yazdır “C” ve 
10’a ya git, değilse devam et 

9. Eğer ort>=60 ise Yazdır “D” ve 
devam et, değilse Yazdır “F” 

10. Bitir 


Açıklama: 

Bu soruda öğrenci harf notu 
hesaplamak için peş peşe koşul 
ifadesi kullanılmıştır. Programlama 
dillerindeki if- else if yapısıyla 
çözülebilir. Bu soru tipinin bir başka 
çözümü de Eğer ifadesinde iki tane 
koşul birleştirerek yazmaktır. 
Örneğin Eğer ort>=90 ve ort<=100 

ise. şeklinde bir ifade de 

kullanılabilir. 



Akış Diyagramı: 
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C Kodu: 

C# Kodu: 

#include<stdlib.h> 

namespace ak { 

#include<stdio.h> 

class Program { 

float vize,final,ort=0; 

static void Main(string[] args) { 

main(){ 

int vize, final; 

printfV'Vize Notunu Girin= "); 

double ort; 

scanf("%f',&vize); 

Console.Write("Vize Notunu Girin= "); 

printf("Final Notunu Girin= "); 

vize = 

scanfl"%f , .&final); 

Convert.ToInt32(Console.ReadLine()); 

ort=vize*0.40+fiııal*0.60; 

Console.Write("Fiııal Notunu Girin= "); 

printf(”Ortalama= %f\r\n",ort); 

final = 

if(ort>=90) 

Convert.ToInt32(Console.ReadLine()); 

printffHarf Notu= A\r\n"); 

ort = (float)vize * 0.40 + final * 0.60; 

else ifl(ort>=80) 

Console. WriteLine( "Ortalama=”+ ort); 

printfT’Harf Notu= B\r\n"); 

if(ort >= 90) 

else i f( ort >=70) 

Console. Write("Harf Notu= A"); 

printfV'Harf Notu= C\r\n"); 

else if (ort >= 80) 

else il(ort>=60) 

Console. Write("Harf Notu= B"); 

printf("Harf Notu= D\r\n"); 

else if(ort>= 70) 

else 

Console. Write("Harf Notu= C”); 

printff’Harf Notu= FW'); 

else if(ort>=60) 


Console. Write("Harf Notu= D"); 

system("PAUSE"); 

else 

retum 0; 

Console. Write("Harf Notu= F"); 

} 

Console.ReadLineO; 

} 

} 

> 

Vb.Net Kodu: 


Modüle Modüle! 


Sub Main() 


Dim vizel, notunuz As Integer 

Di m vize2 As Integer 

Dim final As Integer 

Dim note As Double 


Dim vizl As Double 

Dim viz2 As Double 

Dim fin As Double 


ConsoIe.Write("l. Vize notunu Giriniz") 
vizel *» Console.ReadLineO 
Console.Write("2. Vize notunu Giriniz") 
vize 2 = Console.ReadLineO 
Console.Write("Final notunu Giriniz") 
final = Console.ReadLineO 

Ifvizel <OOr vizel > lOOTlıen 


Console.Write("Lvize notunu yanlış girdiniz") 

Else 


vizl = (vizel * 30)/ 100 

Endlf 

lf vize2 < 0 Or vize2 > 100 Then 


ConsoIe.Write("2.vize notunu yanlış girdiniz") 

Else 
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viz2 = (vize2 * 30) / 100 
End If 

lf final < 0 Or final > 100 Then 
Console.Write("Final notunu yanlış girdiniz") 
Else 

fin = (final *40)/ 100 
End lf 

note = (vizl + viz2 + fin) 
notunuz = note 

lf note <= 100 & note > 90 Then 
Console.Write("Harf Notu A") 

End lf 

lf note <= 89 & note > 80 Then 
Console.Write("Harf Notu B") 

End lf 

lf note <= 79 & note > 70 Then 
Console.Write("Harf Notu C") 

End lf 

lf note <= 69 & note > 60 Then 
Console.Write("Harf Notu D") 

End lf 

lf note <= 59 & note > 0 Then 
Console.Write("HarfNotu F") 

End lf 

Console.ReadO 
End Sub 

Java Kodu: 


public class NotHesap { 

public static void main(String)] args){ 
float vize.fnl; 
double ort=0; 

Scanner oku=new Scanner(System.in); 

System.out.printIn("Vize Notunu Girin="); 
vize=oku.nextInt(); 

System.out.println("Final Notunu Girin= "); 

fhl=oku.nextInt(); 

ort=vize*0.40+fnl*0.60; 

System. out.println("Ortalama= "+ort); 
if(ort>=90) 

System. out.printIn(''Harf Notu= A"); 
else if(ort>=80) 

System.out.println("HarfNotu= B"); 
else if(ort>=70) 

System.out.println("HarfNotu= C"); 
else if(ort>=60) 

System. out.println("Harf Notu= D"); 

etse 

System. out.println("Harf Notu= F"); 

} 

! 
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69. Seçilen operatöre göre dört işlem (+, *, /) yapan programın 

algoritma ve akış diyagramını oluşturunuz. 

Algoritma: 


1 .Başla 

2. sayil,sayi2, sonuc=0, secim 
değişkenlerini al 

3. sayil, sayi2, secim değerlerini gir 

4. Eğer secim= *+’ ise 
sonuc=sayil+sayi2 işlemini yap ve 
8’e git, değilse devam et 

5. Eğer secim= ise sonuc=sayil- 
sayi2 işlemini yap ve 8’e git, değilse 
devam et 

6. Eğer secim= **’ ise 
sonuc=sayi 1 *sayi2 işlemini yap ve 
8’e git, değilse devam et 

7. Eğer secim= 7’ ise 
sonuc=sayil/sayi2 işlemini yap ve 
devam et, değilse Yazdır “Yanlış 
Seçim Yaptınız” ve 9’a git 

8. Yazdır sonuç 

9. Bitir 

Açıklama: 

Bu soruda seçilen operatöre göre 
toplama, çıkarma, bölme ya da 
çarpma işlemi yapılmaktadır. Dikkat 
etmemiz gereken nokta, istenilen dört 
operatör dışında bir veri girişi 
yapıldığı durumda programı kontrol 
etmek olacaktır. Bu durum 7. adım 
gerçekleşmediği durumda kontrol 
edilmiştir. Program 7. adımda kadar 
gelebiliyorsa ve bu adımda 
gerçekleşmiyorsa istenilen dört 
operatör dışında veri girişi yapılmış 
demektir. Bu durumda ekrana mesaj 
verip program kontrollü bir şekilde 
sonlandırılmıştır. 


Ekran Çıktısı: 


1. Sayiyi Giriniz: 

12 

2. Sayiyi giriniz: 

45 

Seciminiz<+, *, 

/>= » 

sonuç= 540.000000 


peoan etnek için bir tuşa basın 


Akış Diyagramı: 
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C Kodu: 

C# Kodu: 

#include<stdlib.h> 

namespace ak 

#include<stdio.h> 

{ 


class Program 

float sayil,sayi2, sonuc=0; 
char secim; 

{ 

static void Main(string[] args) 

main(){ 

{ 

printfÇ'l. Sayiyi Giriniz:"); 

int sayil, sayi2, sonuç; 

scanf("%f",&sayi 1); 

string işlem; 

printfT'2. Sayiyi giriniz: "); 

Console.Write(" 1 .sayiyi girin-'); 

scanfl["%f'.&sayi2); 

sayil = 

printf("Seciminiz(+, *, /)= ”); 

Convert.ToInt32(Console.ReadLine()); 

scanf("%s",&secim); 

Console.Write("2.sayiyi girin-’); 

switch(secim){ 

sayi2 = 

case '+': 

Convert.ToInt32(Console.ReadLine()); 

{ 

ConsoIe.Write("İşlem yapmak istediğiniz 

sonuç = şayi 1 + sayi2; 
printf("sonuc= %f\r\n", sonuç); 
break; 

} 

case 

{ 

sonuç = şayi 1 - sayi2; 

operatörü girin(+-*/)="); 

işlem = Console.ReadLine(); 
svviteh (işlem) 

{ 

case"+": : 

{ 

sonuç = sayil +sayi2; 

printf("sonuc= %f\r\n",sonuc); 

Console. WriteLine(sayil +" + '' + 

break; 

sayi2 + " = " + sonuç); 

} 

break; 

case **': 

} 

{ 

case 

sonuç = şayi 1 * sayi2; 

{ 

printf("sonuc= %f\r\n",sonuc); 

sonuç = şayi 1 - sayi2; 

break; 

Console.WriteLine(sayil + " - " + 

} 

case T: 

{ 

sonuç = şayi 1 / sayi2; 

sayi2 + '' = " + sonuç); 

break; 

} 

case 

printf("sonuc= %f\r\n",sonuc); 

{ 

break; 

sonuç = şayi 1 * sayi2; 

> 

Console.WriteLine(sayi 1 + " * " + 

default: 

sayi2 + " = " + sonuç); 

{ 

break; 

printfV'Yanlış Seçim 

} 

Yaptınız..."); 

case 7": 

break; 

{ 

> 

sonuç = şayi 1 / sayi2; 

} 

Console.WriteLine(sayil + " / " + 


sayi2 + " = " + sonuç); 

system("PAUSE"); 
retum 0; 

} 

break; 

} 

} 

Console.ReadKeyO; 

} 

> 

> 


241 








Algoritma ve Programlama Tamamı Çözümlü Soru Bankası 


Modüle Modulel 
Sub MainO 

Dim sayil, sayi2, sonuç As Inleger 
Dim işlem As String 
Console.Write("l. Sayı") 
sayil = Console.ReadLine() 
Console.Write("2. Sayı") 
sayi2 = Console.ReadLineO 
ConsoIe.Write("İşlem (+,-,*/)") 
işlem = Console.ReadLineO 
If işlem = "+" Then 
sonuç = şayi 1 + sayi2 
Console.Write("Sonuç {0}", sonuç) 
Elself işlem = Then 
sonuç = şayi 1 - sayi2 
Console.NVriteO'Sonuç {0}”, sonuç) 
Elself işlem = Then 
sonuç = şayi 1 * sayi2 
Console.\Vrite("Sonuç {0}", sonuç) 
Elself işlem = 7" Then 
If sayi2 o 0 Then 
sonuç = şayi 1 / sayi2 
End If 

Else Console.VVriteO'Sayı 0 olamaz") 
Console.Write("Sonuç {0}", sonuç) 
End If 

Console.ReadO 
End Sub 
End Modüle 

■lava Kodu: 


import java.util.Scanner; 
public class DortlslemSecim { 

public static void main(String[] args){ 
float şayi l,sayi2, sonuc=0; 

String secim; 

Scanner oku=new Scanner(System.in); 
System.out.println("l. Sayıyı Girin= "); 
sayil=oku.nextInt(); 

System.out.println("2. Sayıyı Girin= "); 
sayi2=oku.nextInt(); 

System.out.println("Seçiminiz(+, *, /)= "); 

secim=oku.next(); 

switch(secim){ 

case "+": 

sonuç = şayi 1 + sayi2; 
System.out.println("sonuc= ”+sonuc); 
break; 

} 

case 

{ 

sonuç = sayil -sayi2; 
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Bölüm VII 

Serilerle ilgili Algoritma Soru Çözümleri 
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70.1-1/3+1/5-1/7+1/9-1/11+... Serisinin n tane terim için toplamını 
hesaplayan programın algoritma ve akış diyagramını oluşturunuz. 


Algoritma: 


Ekran Çıktısı : 


1.Başla 

2.i=3,top=l,n,k=l değişkenlerini 
al 

3.n değerini gir 

4-k^n-1 olana kadar 7. adıma 

kadar olan işlemleri yap 

5. Eğerk%2=l ise top=top-1/i, 
değilse top=top+l/i 

6. k++,i=i+2 işlemini yap 

7. Yazdır top 

8. Bitir 

Açıklama: 

Bu sorular sizin döngü kurma 
kabiliyetinizi arttıracaktır. 

Elimizde sayıların toplanacağı bir 
değişken bulunmaktadır. Bu 
değişkenin başlangıç değeri l’dir. 
Çünkü N=3 girildiğinde örnek 
olarak, 3 terimi toplayıp ekrana 
basmamız gerekir. Fakat biz 
burada her zaman ilk terimi baştan 
top değişkeninin içine atıyoruz. O 
da zaten 1 ’dir. Burada şaşırılacak 
tek nokta serinin bir - bir + 
şeklinde ilerlemesidir. Bunu şöyle 
çözdük. 2.terim k=l olarak 
geçiyor. O zaman tek olanlar için 
- , çift olanlar için + kullandık. Bu 
çift ve tek olan durumu K 
değişkenine aittir. 



Akış Diyagramı: 
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C Kodu: 

#include <stdio.h> 

#include <stdlib.h> 

int main(int argc, char *argv[]) 

{ 

float i=3,top=l; 
int n,k; 

scanfî"%d",&n); 

for(k=l;k<n;k-H-) 

{ 

iflk%2=l) 

top=top-l/i; 

else 

top=top+l/i; 

i=i+2; 

> 

printf|["%f',top); 
system("PAUSE"); 
retum 0; 

} 

C# Kodu: 

using System; 
namespace dmg 
{ 

class Program 

static void Main(stringO args) 

double i = 3, top = 1; 
int n, k; 

Console.Write("N = "); 
n = Convert.ToInt32(Console.ReadLine()); 
for (k = 1; k < n; k++) 

{ 

if(k%2 = 1) 

{ 

top = top - 1 / i; 

} 

else 

{ 

top = top + 1 / i; 

> 

i = i + 2; 

} 

Console. Write(top); 

Console.ReadLine(); 

} 

) 

Vb.Net Kodu: 

Public Class Fortnl 

Private Sub Buttonl_Click(ByVal sender 
Handles Button 1 .Click 

Dim i, top As Double 
i = 3 
top = 1 

Dim n, k As Integer 
n = CInt(TextBoxl.Text) 

For k = 1 To n - 1 

Dim modx As Integer = k Mod 2 

If modx = 1 Then 
top = top - 1 / i 

Else 

top = top + 1 / i 

End If 
i = i + 2 

Next 

Label2.Text = "Sonuç: " & top 

End Sub 

End Class 

As System.Object. ByVal e As System.EventArgs) 

Java Kodu: 

import java.util.Scanner; 
public class Soru45 { 

JJubN^tatic void main(String^^)^^ 
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71. e fonksiyonunun seriye açılımı aşağıdadır. Buna göre; dışarıdan 


girilen x ve N değerine göre; e ' 
ve akış diyagramını oluşturunuz. 
Algoritma: 


1. Başla 

2. x,n ,t=l,f=l,i=l değişkenlerini al 

3. x, n değerleri gir 

4.i<=n olduğu sürece 7.adıma 

kadar işlemleri yap 

5.j<=i olduğu sürece f=f*i işlemini 


yap 

6. t=t+(x A i)/f ve i++ 

7. Yazdır t 

8. Bitir 


eX = 1 + îi + 27 + F + Î! + " 

N 2 

-l£ 

k=0 

Açıklama: 



Bu soru seri örneklerimizden, 
içinde faktöriyel işlemini de 
barındırmaktadır. Çünkü faktöriyel 
yine algoritma sorularında döngü 
mekanizmasını anlamak için 
önemlidir. Bu soru da verilen N ve 
X değerine göre e A x işleminin 
sonucunu veren bir algoritmadır. Bu 
soruda iki tane değişken 
tanımlanmıştır. Bunlardan birini 
faktöriyel için birisini de işlemin 
sonucunu tutan T değişkeni olarak 
ayarladık ve 1 değerinden başlattık. 
İşlem N kadar dönecek, her N 
değerindeki sonucu T değişkeninin 
içine atacak, sonra T’yi ekran 
basacak ve işlem tamamlanacaktır. 


hesaplayan programın algoritma 
Ekran Çıktısı: 


*? DMG 


X Değerim Grinz: } 

N Değerini Griniz: 2 

i 

e A x»1n/l!*ı A 2/2!n A 3/3!-** A 4/4!».♦ı A n/N , = 8 


Akış Diyagramı: 
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C Kodu: 

C# Kodu: 

#include <stdio.h> 
flinclude <stdlib.h> 

using System; 
namespace dmg 
{ 

class Program 

int ınain(int argc, char *argv[]) 

f 

{ 

intx,n,t=l,fak=l,ij; 

static void Main(string[] args) 

scanf("%d",&x); 

{ 

scanf("%d",&n); 

int n, x; 

for(i=I;i<=n;i++) 

int t = 1; 

{ 

int f= 1; 

for0=lj<=iü++) 

int i J; 

{ 

Console.Write("X = "); 

fak=fak*j; 

x = Convert.ToInt32(Console.ReadLine()); 

} 

Console.Write("N = ”); 

t=t+(x A i)/fak; 

n = Convert.ToInt32(Console.ReadLine()); 

i 

for(i=l;i<=n;i++) 

printf("toplam : %d",t); 

{ 

system("PAUSE"); 

for(j=l U <= iJ++) 

retum 0; 

{ 

} 

fak=fak*j; 

} 

t=t+(x A i)/fak; 

} 

Console.Write(t); 

Console.ReadLineO; 

} 

} 

Vb.Nct Kodu: 


Public Class Form 1 


Private Sub Button 1 Click(sender As System.Object, e As System.EventArgs) Handles 

Button I.Click 


Dim i, j, n As Integer 

Dim fak = 1, t = 1, x As Double 


x = TextBox 1 .Text 
n = textbox2.text 

For i = 1 to n 


For j = 1 To i 
fak = fak * j 

Next 

t = t + (x A i) / fak 


Next 

Label5.Text = t 


End Sub 

End Class 


Java Kodu: 


import java.util.Scanner; 
public class Soru46{ 


jmbli^tatic void main(String(^ro){ 


249 














Algoritma ve Programlama Tamamı Çözümlü Soru Bankası 



250 





Algoritma ve Programlama Tamamı Çözümlü Soru Bankası 


72. x ve n değişkenine göre aşağıdaki işlemi yapan programın 
algoritmayı ve akış diyagramını oluşturunuz. 

Algoritma: Ekran Çıktısı: 



1. Başla 

2. n,x,fak= 1 ,top=0,i= 1 j= 1 
değişkenleri al 

3. n,x gir 

4. top=top+(x A i)/fak işlemi yap 

5. İ++ işlemini yap 

6. Eğer i<=j ise 9'a, 
değilse devam et 

7. fak=fak*j işlemi yap 

8. j++,6'e git 

9. Eğer i=n ise yazdır top, 
değilse j=l 4'e git 

10. Bitir 

Açıklama: 

Bu soru 52. soruya benzer bir 
sorudur. Girilen N ve X değerine 
göre sonucu ekrana basan algoritma 
ve akış diyagramını yaptık. Burada 
yine faktöriyel için başta fak=l 
tanımladık, fakat top=0 yaptık. 
Çünkü serimiz X ile başlıyor, 
önceki soruda ise 1 ile başlıyordu. 
Buna dikkat etmemiz 

gerekmektedir. Arka arkaya bu 
soruları yazmamızın sebebi 
konunun pekişmesini sağlamaktır. 

O Bir de bu soruda yüksek 
değerli bir işlem yapıcak iseniz o 
kadar sayıyı karşılayacak veri 
tipi seçmelisiniz. 


"«s* DMG I. j B 

X Değerini Giriniz: 3 Hesapla 

N Değerini Giriniz 3 

x«"2/2Ux~3/3!«~4/4!* .x~n/n! = 12 


Akış Diyagramı: 
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73. Cos(x) fonksiyonu seriye aşağıdaki gibi açılmaktadır. Buna göre 
dışarıdan girilen x değerinin cosinüs’ünü hesaplayan programın 
algoritmasını ve akış diyagramını oluşturunuz. 


Algoritma: 


cos(x) = 


X 2 X 4 X 6 X 8 

1 “ 2! + 4! “ 6! + 8! 


1 .Başla 

2. t=l,i,J,fak=l,x,N değişkenleri al 

3. x,N değerini gir 

4.i<=n-l olduğu sürece 10. adıma 
kadar yap 

5. fak=l 

6. j<=2*i olduğu sürece 9. adıma 
kadar yap 

7. fak=fak+j ,j++ 

8. Eğer i%2=0 ise t=t+(x A (2*i))/fak 
değilse t=t-(x A (2*i))/fak ve i++ 

9. Yazdır t 

10. Bitir 


Açıklama: 

Bu soruları sıkça ele almamızın amacı 
alıştırmaları bol bol yaparak programlama 
konusunda giriş kısmından orta seviyelere 
geçilebilmesidir. Bu sorunun algoritmasında 
olmasa bile akış diyagramında döngümüzü 
kullanabiliriz. Zaten program kodlarına 
bakıldığında hep döngü komutları 
görülecektir. 

Ekran Çıktısı: 



Akış Diyagramı : 
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C Kodu: 

C#Kodu : 

#include <stdio.h> 

#include <stdlib.h> 

using System; 
namespace dmg 
{ 

class Program 

int main(int argc, char *argv[]) 

{ 

! 

int x,n,ij,fak=l; 

static void Main(string[] args) 

float t; 

{ 

scanf("%d%d",&x,&n); 

int x, n, i,j, fak= 1; 

t=l; 

double t; 

for(i=l;n-l;i++) 

Console.Write("X = "); 

{ 

x = Convert.Tolnt32(Console.ReadLine()); 

fak=l; 

Console.Write("N = "); 
n = Convert.Tolnt32(Console.ReadLine()); 

for(j=l;2*iy++) 

t= I; 

fak=fak*j; 

for (i = 1; i <= n - 1; i++) 

if(i%2=0) 

{ 

t=t+pow(x,(2*i))/fak; 

fak = 1; 

else 

for (j = 1; j <= 2 * i;j++) 

t=t-pow(x,(2*i))/fak; 

fak = fak * j; 

} 

if(i%2=0) 

printfl["%r,t); 

t = Convert.ToDouble(t + Math.Pow(x, (2 * i)) / 

system("PAUSE"); 

fak); 

retum 0; 

else 

} 

t = Convert.ToDouble(t - Math.Pow(x, (2 * i)) / fak); 


} 

Console.Write(t); 


Console.ReadLineO; 

} 

} 

} 

Vb.Nct Kodu: 


Public Class Forml 


Private Sub Buttonl Click(sender As System.Object, e As System.EventArgs) Handles 

Buttonl.Click 


Dim n, i, x As Integer 

Dim fak = 1, j As Integer 

Dim t As Double 
x = TextBoxl.Text 
n = TextBox2.Text 
t= 1 

For i = 1 to n - 1 


fak = 1 

For j = 1 to 2 * i 
fak = fak * j 

Next 

If (i Mod 2 = 0) Then 
t = t + (x A (2 * i)) / fak 

Else 

t = t - (x A (2 * i)) / fak 

End If 
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Bölüm VIII 


Dizi Algoritma Soru Çözümleri 
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Dizi Kullanımı ve Mantığı 

Hangi programlama dilini kullanıyor olursanız olun değişken tanımlamanın 
mantığı aynıdır. Saklanacak bilginin tipine göre bir tip seçilir, buna bir isim verilir 
ve hafızada bu değişken için bellek ayrılır. Her değişken için durum aynıdır. C 
programlama dilinde biz bunları integer sayı, char a gibi tanımlıyoruz. Peki aynı 
özelliklere sahip birden fazla değişkene ihtiyaç duyarsak ne yapılmalıdır? Bunu bir 
örnekle açıklamak öğrencilerin daha kolay kavraması açısından uygun olacaktır. 

Örneğin bir fabrikada çalışan işçilerin bilgileri tutulmak isteniyor. (Ad, 
soyad, maaş bilgileri vb.) 100 adet işçimiz olduğunda 100 x 3 =300 tane değişkene 
ihtiyacımız olacak. Bunun için hafızadan 300 tane farklı adreslerde yer almamız yani 
değişken tanımlamamız gerekir. Bu da bizim işimize uygun düşmez. Çünkü hafızada 
aldığımız değişkenler farklı adreslerde bulunur. Erişmek istediğimizde farklı 
adreslerden 1 işçinin bilgilerini çekmek lazım olur. 2.si de hafızadan çok yer almış 
oluruz. Bunu yapmanın daha kolay bir yolu bulunmaktadır: Dizileri kullanmak. 
Dizilerin en önemli özelliği aynı tipteki ve birbiri ile alakalı verileri toplu olarak 
tanımlamaya yaramasıdır. Bu durumda örneğimizdeki işçi sayısı kadar elemanı olan 
bir tek dizi değişkeni tanımlar ve bilgileri bir döngü içerisinde indis kullanarak 
dizinin uygun yerine yerleştirir, ayrıca bir dizinin ilk elemanının adresine 
ulaştığınızda, dizinin o adresine ulaşmış olursunuz. 


Bir örnekle açıklayalım. 


İnt a[a]; Gibi bir dizi tanımlaması yapıldığını düşünelim. Windows işletim 
sisteminde çalışıyorsa derleyici a dizisi için bellekte 4*5=20 byte yer ayırır. Bellekte 
bu dizinin yerleşimi aşağıdaki gibi olur: 


4’er byte 


artar. 


Adres 


F10 


F14 


F18 


Değer 


a[0] 


ati] 


a[2] 


a[3] 


a[4] 


=> 


20 Byte 
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Programcı açısından dizi kullanımının getirdiği en büyük avantaj döngü 
deyimleri kullanarak tüm dizi elemanlarının kolay bir şekilde erişilebilmesidir. 

C programlama dilinde Dizi tanımlama 

înt dizi[10] -> 10 elemanlı bir sayı dizisi 

Char dizi[10] -> 10 elemanlı bir karakter dizisi 

Bilinmelidir ki dizinin ilk elemanı d[0], son elemanı d[9]’dur. Yani eleman sayısı N 
ise 0-9 indisti 10 eleman kullanabiliriz. 


D[0] 

D[l] 

D[2] 

.... 

... 

.... 



.... 

D[9] 


Tek boyutlu diziler olabileceği gibi çok boyutlu diziler de olabilir. Bu durum 
özellikle matris soruları olmak üzere sorularımızda da bulunmaktadır. 

İnt d[satır][sütun]; 

İnt d[2][5] ; 


12345 

Deniz 

Gezgin 

300 ytl 

İzmir 

12346 

Pınar 

Gezgin 

200 ytl 

İzmir 


Artık dizi kullanmanın avantajlarını biliyoruz. Bu avantajla aynı türden ve birbiri ile 
ilişkili bilgilere kolay erişebiliyor ve hafızadan daha iyi yararlanabiliyoruz. Bu 
nedenle devamlı tutulmasını istediğimiz veriler için dizi tanımlamalıyız. 

O Unutulmaması gereken bir nokta diziler için program çalıştığı sürece bellekte 
yer ayrılır. Programın çalışması durdurulduğunda saklanma işlemi söz konusu 
değildir. Her programı çalıştırdığımızda o anda bellekte boş olan yerler diziler için 
kullanılır. Dosyalama ya da veri tabanı işlemleri ile karıştırılmamalıdır. 
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74. 10 elemanlı bir sayı dizisini girişini yapan algoritma ve akış 
diyagramını oluşturunuz. 

Algoritma: Akış Diyagramı: 


1. Başla 

2. d[10], i=0,sayı değişkenlerini al 

3. sayı değerini gir 

4. d[i]=sayı işlemini yap 

5. Eğer i=9 ise devam et 
değilse i++ 3’e git 

ö.Bitir 


Açıklama: 

Dizi sorularının ilki olan bu soruda 
temel işlem olan diziyi doldurmayı 
göreceğiz. 10 elemanlı bir dizi 
denildiğinden indis için i 
değişkenini alırırız. Dizinin ilk 
elemanı olması açısından i=0 
olmalıdır. İ=9 olana kadar dışarıdan 
sayı girilir. (Unutulmamalıdır ki 
dizinin ilk elemanı d[0]’dır.) 



Ekran Çıktısı: 
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C Kodu: 


#include <stdio.h> 

#include <stdlib.h> 

ini main(int argc, char *argv[]) 

{ 

int d[10],i; 

printlf'Dizinin elemanlarini giriniz"); 
for(i=0;i<10;i-H-) 

{ 

printf("\n\n"); 

printtV'd[%d]=",i); 

scantt"%d",&d[i]); 

} 

system("PAUSE"); 
retum 0; 

} 


C# Kodu: 


using System; 
namespace dmg 
{ 

class Program 

{ 

static void Main(string[] args) 

{ 

int[] dizi = new int[10]; 
int i; 

Conso!e.WriteLine("Dizinin elemanlarini 
giriniz"); 

for (i =0; i < 10; i++) 

{ 

Console.Write(i + ".Elemanı Giriniz = 

*'); 

dizi[i] = 

Convcrt.ToInt32(Console.ReadLine()); 

} 

Console. Read Line(); 

} 

} 

} 


Vh.Net kodu: 


Public Class Forml 

Private Sub Buttonl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Buttonl.Click 

Di m dizi(10) As Integer 
For i As Integer = 0 To 9 

dizi(i) = CInt(InputBox(i + 1 & ".Sayıyı Girin", "Sayı Girişi", 0)) 

ListBox 1 .ltems.Add(dizi(i).ToString) 

Next 
End Sub 

Java kodu: 

i m port ja va. ut i 1 .Scan ner; 
public class Soru49{ 

public static void main(StringQ args){ 

Scanner oku=new Scanner(System.in); 
int[] dizi=new int[ 10]; 
int i; 

for(i=0;i<10;i++) 

{ 

System.out.print(i+".elemanı giriniz="); 
dizi[i]=oku.nextInt(); 

} 

} 

} 
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75. Fibonacci serisinin ilk 10 terimini dizi kullanarak bulan programın 
algoritma ve akış diyagramı oluşturunuz. 

Algoritma: Ekran Çıktısı: 


1. Başla 

2. dizi[10],i=2 değişkenleri al 

3. d(0)=l,d(l)=l 

4. d(i)=d(i-l)+d(i-2) 

5. Eğer i=9 ise devam, 
değilse yazdır d( i) , i++ ve 
4.adıma git 

ö.Bitir 

Açıklama: 

Fibonacci Serisinin ilk 10 terimi 
sorusunu dizi kullanmadan da daha 
önceki sorularda çözmüştük. Fakat 
orada ekrana basıp program 
bitiyordu. Fakat bir dizideki 
elemanlar program çalıştığı sürece 
hafızada tutulmamaktadır. Böylece 
Dizi kullanarak istediğimiz an 
istediğimiz terime ulaşabiliriz. 
Bunu bir kütüphanenin (dizi) 
raflarındaki kitaplara (terim-değer) 
benzetebiliriz. i=2’den 

başlatmamızın sebebi de ilk iki 
terim sabit 1 olduğu için, sonra 
programın döngüye giriyor 
olmasıdır. 



Akış Diyagramı: 


Basla 
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C Kodu: 

C#Kodu : 

#include <stdio.h> 

using System; 

#include <stdlib.h> 

namespace dmg 

int main(int argc, char *argv[]) 

{ 

{ 

class Program 
{ 

static void Main(string[] args) 

{ 

int[] dizi = nevv int[l 1]; 

int d[10],i; 

primlV'Dizinin elemanlarini giriniz"); 

for(i=0;i<10;i++) 

int i; 

{ 

dizi[0] = 1; 

printfl["\n\n"); 

dizi[lj= 1; 

printfî"d[%d]=",i); 

Console.Write(dizi[0]); 

scanfi["%d",&d[i]); 

Coıısole. Write(dizi[ 1 j); 

1 

for (i = 2; i <= 10; i++) 

system("PAUSE"); 

{ 

retum 0; 

dizi(i] = dizi[i - 1 ] + dizi[i - 2]; 

} 

Console.Write(dizi[i]); 


} 

Console. ReadLinef); 

} 

} 

} 

Vb.Net Kodu: 


Public Class Form! 


Private Sub Forml_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) 

Handles MyBase.Load 


Dim dizi(10) As üıteger 
dizi(0) = 1 
dizi(l) = 1 

Label 1 .Text = dizi(0) & & dizi( 1) 

For i As Integer = 2 To 10 


dizi(i) = dizi(i - 1) + dizi(i - 2) 


Label 1 ,Text = Label 1 .Text & & dizi(i) 

Next 


End Sub 

End Class 


■lava Kodu: 


import java.util.Scanner; 
public class Soru50{ 


public static void main(String[] args){ 


Scaruıer oku=new Scanner(System.in); 

int[] dizi=new int[l 1]; 
int i; 

dizi[0]=l; 

dizi[l]=l; 


^^^tenvout.print(dizi^OJ+","); 
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76. Girilen bir kelimenin uzunluğunu bulun programın algoritma ve 
akış diyagramını oluşturunuz. 

Algoritma: Ekran Çıktısı: 

1. Başla 

2. dizi[100],i=0,kelime 

3. kelime gir 

4. Eğer d[i]=null ise yazdır i ve 6’ya 
git, 5’e git değilse devam et 

5. i++ ve 4’e git 
ö.Bitir 

Açıklama: 

Bu soruda bir karakter dizisi 
tanımlıyoruz. Kelimeyi de okutmak 
için gets() fonksiyonunu kullabiliriz 
(c ‘de) veya kullanıcının boş bir 
değer girmesi yerine karakterler 
okutulup diziye atılabilir. 100 
eleman tanımlamamızın sebebi dizi 
tanımlanırken, dinamik dizi 
tanımlamadığımızda her zaman kaç 
elemanlı olduğunu derleyiciye 
belirtmektir. Biz burada onun için 
100 elemanlı demeyi tercih ettik. 

Fakat C'de Malloc fonksiyonu ile 
bilinmeyen sayıda elemanlar için 
bellekten yer alabiliriz. Gets() ile 
sisteme kelime okutursak, son 
karakteri girdikten sonra dizinin 
sonu, kendine has bir işaret 
koyar(‘\o’ gibi). Bu da bize dizinin 
sonuna geldiğimizi gösterir. 



Akış Diyagramı: 
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C Kodu: 


#include <stdio.h> 

#include <stdlib.h> 

int main(int argc, char *argv[]) 
{ 

char d[ 100]; 
int i=0; 
gets(d); 

for(i=0;i<100;i-t-+) 

{ 

iftd[i]=^') 

{ 

printfl;”%d",i); 

break; 

> 

> 

system("PAUSE"); 
retum 0; 

} 


CftKodu: 


using System; 
namespace dnıg 
{ 

ciass Program 

{ 

static void Main(string(] args) 

{ 

int i; 

striııg[] dizi = nevv string[I00]; 
string değer = "null"; 
for (i =0; i <= 100; i++) 

{ 

Console.Writc(i + ".Karakteri Giriniz = "); 
dizi(i] = Convert.ToString(Console.ReadLine()); 
if(dizi[i] = değer) 

{ 

goto dmg; 

} 

} 

dmg: 

Consoie.Write(i); 

Console.ReadLine(); 


} 


Vb.Net Kodu: 


Public Ciass Forml 

Private Sub Buttonl_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Buttonl.Click 
Dim dizi(100) As String 
Dim değer As String = 

For i As Integer = 0 To 99 

dizi(i) = InputBox(i + I & ".Karakteri Girin", "Karakter Girişi") 

If dizi(i).ToString() = değer Then 
Labell.Text = "Sonuç: " & i & " Karakter." 

Exit For 
Else 

ListBoxl.ltems.Add(i + I & ".Karakter: "& dizi(i)) 

End If 
Next 


End Sub 
End Ciass 


Java Kodu: 


import java.util.Scanner; 
public ciass SoruSİ { 

public static void main(String[] args){ 
Scanner oku=new Scanner(System.in); 
String]] dizi=new String] 100]; 
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77. Bir sayı dizisinin en büyük elemanını bulan programın algoritma ve 
akış diyagramı oluşturunuz. 

Algoritma: Akış Diyagramı: 


1 .Başla 

2. dizi,es,enb,i=0 değişkenleri al 

3. enb=dizi[i] işlemini yap 

4. İ++ işlemini yap 

5. Eğer enb<dizi[i] ise enb=dizi[i], 
değilse devam et 

6. Eğer i=es-l ise devam et, 
değilse 4’e git 

7. Yazdır enb 

8. Bitir 

Açıklama: 

Burada dizimize 10 tane sayı 
girilmiş gibi kabul ediyoruz. Enb 
değişkenimize ilk önce dizinin ilk 
elemanını atıyoruz. i<=9 olana 
kadar dizinin diğer elemanları ile 
enb içindeki sayıyı karşılaştırıyoruz. 
Her zaman karşılaştırmada büyük 
olanı enb içine atıyoruz. Son olarak 
enb değişkeni ekrana basıyoruz. 
Daha önce enb, enk sorularını nasıl 
çözeceğimizi anlatmıştık. Burada 
sadece dizi içinden en büyüğü 
buluyoruz. 

Ekran Çıktısı: 
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C Kodu: 

C#Kodu : 

#include <stdio.h> 
tfinclude <stdlib.h> 

using System; 

tfdefine n 10 

namespace dmg 

int main(int argc, clıar *argv[]) 

{ 

{ 

class Program 

int dizi[n]; 

{ 

int i,enb=0,k; 

static void Main(string[] args) 

printfi["dizinin elemanlarini gir\n"); 

{ 

for(i=0;i<n;i++) 

int[] dizi = nevv int(l 1]; 

i 

int i = 0; 

scan "%d",&dizi [i]); 

int enb; 

ifîenb < dızi[i]) \ 

enb=dizi[i]; 

} 

printfi["%d",enb); 

enb = dizi[i]; 

for (i = 1; i <= 10; İ-H-) 

{ 

Console.Write(i + ".Sayıyı giriniz = ”); 

system("PAUSE"); 
retum 0; 

} 

dizifi] = Convert.Tolnt32(Console.ReadLine()); 
if (enb < dizi[i]) 

{ 

enb = dizi[i]; 

} 

} 

Console.Write("Dizinin en büyük elemanı = 

"+enb); 


Console.ReadLineO; 

} 

} 

1- 

Vb.Net Kodu : 


Public Class Forml 


Private Sub Buttonl_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles Buttonl.Click 

Di m dizi(10) As Integer 

Dim enb As Integer = 0 

For i As Integer = 0 To 9 


dizi(i)= InputBox(i + 1 & ".Sayıyı Giriniz", "Sayı Girişi", 0) 

ListBoxl.Items.Add(i + 1 & "Sayı 

" & dizi(i)) 

If dizi(i) > enb Then 
enb = dizi(i) 

End If 


Next 


Label I.Text = ”En büyük sayı: ” & enb 

End Sub 

End Class 


Java Kodu: 


import java.util.Scanııer; 
public class Soru52{ 


public static void main(String(| args){ 

Scanner oku=new Scanner(System.in); 

intfl dizi=new int[ 10]; 
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78. Girilen kelimeyi tersten yazdıran programın algoritmasını ve akış 
diyagramını oluşturunuz. 

Algoritma: Ekran Çıktısı: 


1. Başla 

2. d[ 100] , kelime , i=0 

3. kelime gir 

4. Eğer d[i]=‘\n’ ise 5'e git, 
değilse i++ 4'e git 

5.i -- işlemini yap 

6. Yazdır d[i] 

7. Eğer i=0 ise devam et, 
değilse 5'e git 

8. Bitir 



Açıklama: 

Kullanıcıdan bir kelime girmesi 
istenir. Kelimenin harfleri 
tanımladığımız karakter dizisine 
girilir. Kelimenin son karakteri 
girilip enter tuşuna basıldığında 
dizi sonu olarak bir işaret konulur 
(‘\o’ gibi). Dizi sonu gösteren 
karakterin bulunduğu dizinin indis 
değeri 1 eksilterek, i=0 olana kadar 
her dizi elemanı yazdırılır. 
Program, dizinin ilk elemanını da 
yazdırınca bitecektir. 

Örnek: 

Mertkan -> 7 eleman 


Akış Diyagramı: 
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l Kodu: 


C# Kodu: 


#include <stdio.h> 

“include <stdlib.h> 

int main(int argc, char *argv[]) 
{ 

char d[ 100]; 
int i=0; 
gets(d); 

for(i=0;i<l00;i++) 

{ 

ifXd[i]=^') 

break; 

} 

while (i>-l) 

{ 

printfl["%c",d[i]); 

i-; 

} 

system("PAUSE"); 
retum 0; 

} 


using System; 
namespace dmg 
{ 

class Program 

{ 

static void Main(string[] args) 

{ 

int i; 
int n; 

Console.Write("Kaç karakterden oluşan kelime 
girmek istiyorsunuz = "); 

n = Convert.ToInt32(Console.ReadLine()); 
charf] dizi = new char[n+l]; 
for (i = I; i <= n; i++) 

{ 

Console.Write(i+".Karakteri Giriniz = "); 
dizi[i] = Convert.ToChar(Console.ReadUneO); 

} 

Console.Write(’'Girmiş olduğunuz kelime = ”); 
for (i = 1; i <= n; i++) 

Console.Write(dizi[i]); 

ConsoIe.WriteLine(); Console.Write("Kelimenin 
Tersten yazılışı = ”); 

for (i = n; i >= I; i-) 

Console.Write(dizi[i]); 

Console. ReadLi ne(); 

} 

} 

} 


Vb.Net Kotlu: 


Public Class Forml 

Private Sub Buttonl_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Buttonl.Click 

Dim kelime As String = TextBoxl.Text.TrimO 
Dim çeviri As String = 

Dim i As Integer 
i = kelime.ToString.Length() 

Dim dizi(i) As String 
For j As Integer = 0 To i - I 
dizi(j) = kelime.Substriııg(j, 1) 

ListBoxl.Items.Add(dizi(j)) 

Next 

For k As Integer = dizi.Count - 1 To 0 Step -1 
çeviri = çeviri & dizi(k) 

Next 

Label3.Text = "Kelime " & i & " karakter." 

Label4.Text = "Tersi: n & çeviri 
End Sub 
End Class 
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" 

Java Kodu: 


import java.util.Scanner; 
public class Soru53 { 

public static void main(String[] args){ 

Scanner oku=new Scanner(System.in); 
int i,n; 

System.out.print("Kaç karakterden oluşan kelime girmek istiyorsunuz: "); 

n=oku.next!nt(); 

char[] dizi=new char[n]; 

for(i=0;i<n;i-H-) 

{ 

System.out.print((i+l)+".karakteri giriniz: "); 
dizi[i]=oku.next().charAt(0); 

} 

System.out.print(”Girmiş olduğunuz kelime= "); 
for(i=0;i<n;i++) 

System.out.print(dizi[i]); 

System.out.printlnC'"); 

System.out.print("Kelimenin tersten yazılışı= "); 
for(i=n-l;i>=0;i—) 

System.out.print(dizi[i]); 

} 

J_ 
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79. Bir decimal sayıyı binary (10'luk-2'lik) sayıya çeviren programın 
algoritmasını ve akış diyagramını oluşturunuz. 


Algoritma: 

1. Başla 

2. d[8] , şayi, i=0 değişkenleri al 

3. şayi değerini gir 

4. d[i]=sayi%2, sayi=sayi/2 

5. Eğer sayi<2 ise d[i+l]=sayi 6'ya 
git .değilse i++ 4’e git 

6. Yazdır d[i+l] 

7. Eğer i=(-l) ise 8 ‘e git 
değilse i— 6'ya git 

8. Bitir 

Açıklama: 

Bu soruyu dizi kullanmadan da 
yapmıştık. Fakat her zaman 
belirttiğimiz gibi her hanedeki 
sayılara tek tek ulaşmak istiyorsak 
bunları diziye girmeliyiz. Sorunun 
mantığı daha önceki soru ile 
aynıdır. 


Ekran Çıktısı: 



Akış Diyagramı: 
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C Kotlu: 

I C# Kotlu: 

#include <stdio.h> 
tfinclude <stdlib.h> 

using System; 
namcspace dmg 
{ 

class Program 

int main(int argc, char *argv[]) 

{ 

{ 

int d[8],sayi,i; 

static void Main(string[] args) 

scanf("%d",&sayi); 

! i 

for(i=0;i<8;i++) 

int[] dizi = nevv int[8]; 

{ 

int şayi, i; 

d[i]=sayi%2; 

Console.Write("Sayıyı Giriniz = "); 

sayi=sayi/2; 

şayi = Convert.Tolnt32(Console.ReadLine()); 

if(sayi<2) 

for (i = 0; i < 8; i++) 

| î 

{ 

i=i+l; 

dizi[i] = şayi % 2; 

d[i]=sayi; 

şayi = şayi / 2; 

break; 

if (şayi < 2) 

> 

{ 

) 

i = i + 1; 

while(i>-l) 

dizi[i] = şayi; 

{ 

break; 

printf("%d",d[i]); 

> 

i-; 

} 

} 

while (i > -1) 

system("PAUSE"); 

{ 

retum 0; 

Console.Write(dizi[i]); 

} 

i—; 

> 


Consoie.ReadLine(); 

} 

> 

Vb.Net Kodu: 


Public Class Forml 


Private Sub Buttonl_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles Buttonl.Click 

Dim dizi(8) As Integer 

Dim modx As Integer 

Dim şayi, i As Integer 

Dim sonuç As String = "" 
şayi = CInt(TextBox 1 .Text) 

For i = 0 To 7 


If modx = 1 Then 


şayi = şayi - 1 

Endlf 


modx = şayi Mod 2 
dizi(i) = modx 
şayi = şayi /2 

If şayi < 2 Then 


i = i+ 1 


& 

a. 

II 

1. 
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80. 10 elemanlı bir sayı dizisinde en küçük elemanın bu dizinin 

kaçıncı elemanı olduğunu bulan programın algoritma ve akış 
diyagramını oluşturunuz. 

Algoritma: Ekran Çıktısı: 


I .Başla 

2.dizi[10],i,x=l değişkenleri al 
3.i=9 olana kadar 6. adıma kadar 
olan işlemleri yap 

4. sayi değerini gir 

5. dizi[i]=sayi işlemini yap 
6.i=l 

7. enk=d[0] işlemini yap 

8. Eğer enk<d[i] ise devam et, 
değilse enk=d[i],x=i+l 

9. Eğer i=9 ise devam et, 
değilse i++ 8'e git 

10. Yazdır x ,enk 

11. Bitir 

Açıklama: 

Bu soru bize dizinin 
eleman sayısı ile dizi indisi 
arasındaki farkı gösteren bir 
örnektir. En küçük eleman örnek 
olarak d[4]‘te bulunduysa bu 
dizinin 4+1 =5 elemanıdır. Bunu 
unutmamalıyız. Enk değişkeni her 
sayı ile karşılaştırıldığında takas 
alanı gibi en son değerini alana 
kadar değişir. 



Akış Diyagramı: 
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C Kodu: 

C# Kodu: 

Silicinde <stdio.h> 

Sinclude <sldlib.h> 

int main(int argc, char *argv[]) 

1 

int d[10],i,x=0,enk; 

using System; 
namespace dmg 
{ 

class Program 
{ 

static void Main(string[] args) 

{ 

intf) dizi = nevv int[10]; 

scanR"%d",&d[0]); 

enk=d[0]; 

int i = 0, x = 0, enk; 

for(i=l;i<10;i++) 

Console.Write(i + ".Elemanı Giriniz = "); 

{ 

dizi [0] = 

scanR"%d",&d[i]); 

Convert.ToInt32(Console.ReadLine()); 

İR enk>d[i]) 

enk = dizi[0]; 

{ 

for (i = 1; i < 10; i++) 

enk=d[i]; 

{ 

x=i+l; 

Console.Write(i + ".Elemanı Giriniz = "); 

} 

dizi[i] = 

> 

Convert.ToInt32(ConsoIe.Readl.ine()); 

printR"En küçük eleman %d.sirada”,x); 
printR"En küçük sayı :%d",enk); 
system("PAUSE"); 
retum 0; 

} 

if (enk > dizi[i]) 

{ 

enk = dizi[i]; 
x = i + I; 

} 

} 

Console.Write("En küçük eleman " + x + " sırada"); 
Console.Write("En küçük eleman " + enk + ” dir"); 
Console. ReadLine(); 

} 

} 

} 



Vb.Net Kodu : 


Public Class Forml 


Private Sub Buttonl_Click(ByVal sendcr As System.Object, ByVal e As System.EventArgs) 

Handles Buttonl.Click 


Dim dizi( 10) As Integer 

Dim enk, index As Integer 

For i As Integer = 0 To 9 


dizi(i) = InputBox(i + 1 & ". Sayıyı girin: ", "Sayı Girişi", 0) 

If i = 0 Tlıen 


enk = dizi(0) 
index = 0 


End If 


ListBoxl.Items.Add(i + 1 & ". Sayı: " & dizi(i)) 

If enk > dizi(i) Then 


enk = dizi(i) 
index = i 


End If 


Next 


Label2.Text = "En küçük sayı " & enk & " dir ve " & index + 1 & ". sıradadır." 

End Sub 

End Class 
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Java Kodu : 

import java.util.Scanner; 
public class Soru55{ 

public static void main(String(] args){ 

Scanner oku=new Scanner(System.in); 
int i=0,enk,yer=l; 
int[] dizi=new int[10]; 

System.out.print(i+".elemanı giriniz=: "); 

dizi[0]=oku.nextlm(); 

enk=dizi[0]; 

for(i=l;i<10;i-H-) 

{ 

System.out.print(i+".e!emanı giriniz=:"); 

dizi[i ]=oku. nextlnt(); 

iftenk>dizi[i]) 

{ 

enk=dizi[i]; 

yer=i+l; 

} 

} 

System.out.println("En Küçük eleman "+yer+".sırada"); 
System.out.println("En Küçük eleman "+enk+" dir"); 

} 

i_ 
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81. Aşağıdaki çıktıyı veren programın algoritma ve akış diyagramını 
ol uşturunuz. 

Bilgisayar 
ilgisayarb 
Igisayarbi 
gisayarbil 


Bilgisayar 


Algoritma: 

1. Başla 

2. d[10]=’BİLGİSAYAR\ 


Ekran Çıktısı: 



pHSfflBT 

İLGİSAYARB 

LGİSAYARBİ 

GİSAYARBİL 

İSAYARBILG 

SAYARBİLGİ 

AYARBİLGİS 

YARBILGİSA 

ARBİLGİSAY 

RBlLGİSAY'A 

BİLGİSAYAR 


i=0 j=0,k=0 değişkenleri al 

3. Yazdır d[i] işlemini yap 

4. Eğer i=9 ise devam et, 
değilse i++ 3'e git 

5. j++,i=j işlemini yap 

6. Eğer k<j ise devam et, 
değilse 8’e git 

7. yazdır d [k], k++ 6 ‘ya git 

8. k=0 

9. Eğer i<10 ise 3’e git, 
değilse devam et 

10. Bitir 

Açıklama: 

Bu soru da dizi ve döngünün 
birlikte kullanıldığı önemli 
sorulardandır. Yukarıda 
bulunan tablodaki şekli ekrana 
basmak için ilk tanımlama 
esnasında BİLGİSAYAR 
kelimesini diziye direkt 
giriyoruz. 


Akış Diyagramı: 
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C Kodu: 

C# Kodu: 

#include <conio.h> 

using System; 

#include <stdio.h> 

namespace dmg 

int main(int argc, char *argv[]) 

{ 

{ 

class Program 

int i j=0,k=0; 

{ 

clıar d[ 10]= {'B’.'i'.T.’g'.'i'.'s'.’a'.'y'.’a'.'r'}; 

stalic void Main(string[] args) 

dmg: 

1 

for(i=j;i<10;i++) 

char[] dizi = new char[I0J; 

! 

dizi[0] = ’B’; dizi[l] = T; 

printfî" %c ",d[i]); 

dizi[2] = 'L'; dizi[3] = ’G’; 
dizi[4] = T; dizi[5] = 'S'; 

} 

d izi [6] ='A'; dizi[7] = V; 

while(k<j) 

dizi[8] = 'A'; dizi[9] = 'R'; 

{ 

int i = 0; int j = 0; 

printlî" %c ",d[k]); 

int k = 0; 

k++; 

dmg: 

} 

for (i =j; i <= 9; i++) 

iflj!=9) 

{ 

{ 

Console.Write{dizi[i]); 

k=0; 

} 

printfÇ'Vn"); 

î=j; 

j++; 

while (k<j) 

goto dmg; 

{ 

} 

Console. Write(dizi [k]); 

printf("\n"); 

k++; 

for(i=0;i<10;i-H-) 

} 

{ 

j++; 

printfT' %c ”,d[i]); 

k = 0; 
if(i < 10) 

} 

{ 

system("PAUSE"); 

Console. WriteLineO; 

retum 0; 

goto dmg; 

I 

} 

Console.ReadLineO; 

} 

} } 

Vb.Net Kodu: 


Public Class Forml 


Private Sub Forml_Load(ByVaI sendcr As System.Object, ByVal e As System.EvcntArgs) 

Handles MyBase.Load 


Dim dizi(IO) As String 
dizi(0) = "B" 
dizi(l) = "1" 
dizi(2) = "L" 


dizi(3) = ”G" 
dizi(4) » "İ" 


dizi(S) = "S" 
dizi(6) = "A" 
dizi(7) = "Y" 
dizi(8) = "A" 
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82. Bir sınıftaki 50 öğrencinin bir dersten aldıktan yıl sonu notlan 
veriliyor. Başan notu 50 olduğuna göre kaç öğrencinin başarılı 
olduğunu bulan programın algoritma ve akış diyagramını 
oluşturunuz. 

Algoritma: Ekran Çıktısı: 


1 .Başla 

2. n,bas=0,i=0,ogr[n],sayi 
değişkenleri al 

3. n değerini gir 
4.Sayi değerini gir 
5.ogr[i]=sayi 

6. Eğer i=n-l ise 8’e git, 
değilse devam et 

7. Eğer ogr[i]>=50 ise 
bas=bas+l,i-H- 4'e git, 
değilse i++ 4'e git 

8. Yazdır bas 

9. Bitir 
Açıklama: 

Öğretmenler, yıl sonunda geçenlere 
ve ortalamaya bakmaktadır. Bu 
nedenle notları girdiğimizde kaç 
öğrencinin geçtiğini hesaplayan bir 
program koyduk. Aynı zamanda 
diziler için güzel bir örnek teşkil 
etmesi açısından 50 öğrenci için 50 
ayrı değişken tanımlamak 
gerekmekteydi. Ama dizinin bu işi 
çözdüğü gösterilmiş oldu. 
Algoritma, girilen notlan diziye 
atacak ve 50’den büyük ve 
küçüklüğüne göre sayacı arttıracak, 
daha sonra sayacı ekrana 
basacaktır. 



Akış Diyagramı: 
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C Kodu: 


#define n 50 
#include <conio.h> 

#include <stdio.h> 
int main(int argc, char *argv[]) 
{ 

int bas=0,i=0,ogr[n],sayi; 

while(i<50) 

{ 

scanf{"%d",&sayi); 

ogr[i]=sayi; 

if(ogr[i]>=50) 

bas=bas+l; 

İ++; 

> 

printft"%d".bas); 
system("PAUSE"); 
retum 0; 

} 


CflKodu: 


using System; 
namespace dmg 
{ 

class Program 

{ 

static void Main(string[] args) 

{ 

intf] ogr = new int[51]; 
int bas = 0; 
int t; 

for (i = 1; i <=50; i++) 

{ 

Console. Write(i + ".Öğrencinin Notunu Giriniz = "); 
ogr[i] = Convert.ToInt32(Console.ReadLine()); 
if (ogr[i] >= 50) 

{ 

bas = bas + 1; 

} 

} 

Console.\Vrite("Başarılı öğrenci sayısı = " + bas); 
Console.ReadLineO; 

} 

} 


Vb.Net Kodu: 

Public Class Forml 

Private Sub Forml Load(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles MyBase.Load 

Dim dizi(50) As Integer 
Dim basarili As Integer = 0 
For i As Integer = 0 To 49 

dmg: 

dizi(i) = InputBox(i + 1 & Öğrenci Notu; ", "Not Girişi”, 0) 

If dizi(i) > 100 Or dizi(i) < 0 Then 
MessageBox.Show(”Notlar 0-100 arasında olmalıdır.”, "Hata”, 
MessageBoxButtons.OK, MessageBoxlcon.Error) 

GoTo dmg 
Endlf 

ListBoxl.Items.Add(i + 1 & ". öğrencinin Notu; " & dizi(i)) 

If dizi(i) >= 50 Then 
basarili = basarili + 1 
End If 
Next 

Labell.Text = basarili & " Öğrenci Başanlı." 

End Sub 
End Class 


Java Kodu: 


import java.util.Scanner; 
public class Soru57{ 

^^^^jrubli^stati^oi^nain(Stnn|^jrgjO^ 
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Scanner oku=new Scanner(System.in); 
int[] ogr=new int[50]; 
int i,bas=0; 
for(i=0;i<50;i++) 

{ 

S ystem.out.print(i+".Öğrencinin notunu giriniz=”); 

ogr[i]=oku.nextInt(); 

ifl[ogr[i]>=50) 

bas++; 

} 

System.out.print("Başanlı öğrenci sayısı="+bas); 

} 

i_ 
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83.10 elemanlı bir sayı dizisinin ortalaması tam sayı ise bu sayıdan 
dizide kaç tane olduğunu veren programın algoritma ve akış 
diyagramını oluşturunuz. 

Algoritma: 


1. Başla 

2. d[ 10],i=0,sayı,top,ort,sayac=0 
3.i=9 olana kadar 6. adıma kadar 
olan işlemleri yap 

Asayı değerini gir 

5. d[ i ]=say ı,top=top+say ı 

6. Eğer top%10=0 ise devam et, 
değilse 10’a git 
7.ort=top/10 işlemini yap 

8. Eğer ort=d[i] ise sayac++, 
değilse devam et 

9. Eğer i=0 ise yazdır sayaç, 
değilse i— 8’e git 

10. Bitir 

Açıklama: 

10 elemanlı bir sayı dizisinin tüm 
elemanlarını toplayıp 10’a 
böldüğümüzde çıkan sayı tam sayı 
ise bunu dizinin elemanları ile tek 
tek karşılaştırmalı ve buna göre 
sayacımızı arttırmalıyız. Sonuçta da 
dizinin sonu gelince sayacı ekrana 
basmalıyız. Ancak çıkan ortalama 
değeri tam çıkmazsa program 
sonlanacaktır. (Bu soru, dizi ile 
oynanan sorulardan bir tanesidir. 
Artık döngü sizin için çok kolay 
olmalı.) 


Ekran Çıktısı: 



Akış Diyagramı: 



286 




































Algoritma ve Programlama Tamamı Çözümlü Soru Bankası 


C Kodu: 

C#Kodu: 

#include <stdio.h> 

using System; 

#inc!ude <conio.h> 

int d[10],top=0,i,ort,sayac=0; 

namcspace dmg 

int main(int argc, char *arev[]) 

{ 

( 

class Program 

for(i=0;i<10;i++) 

{ 

( 

static void Main(string[] args) 

scanf("%d",&dli]); 

{ 

top=top+d[i]; 

int[] dizi = nevv int[10]; 

} 

i ft top% 10=0) 

{ 

ort=top/IO; 

int top=0,i,ort,sayac=0; 
for (i = 0; i < 10; i++) 

{ 

Console.Write(i + ".Sayıyı Giriniz = 

for(i=0;i<I0;i++) 


{ 

dizi[i] = 

ifld[i]=ort) 

sayac++; 

} 

printf("%d tane var",sayaç); 

Convert.Tolnt32(Console.ReadLineO); 
top = top + dizi[i]; 

} 

if (top % 10 = 0) 

1 

{ 

else 

ort = top /10; 

printfT'ortalama tam şayi değil"); 

for (i = 0; i < 10; i++) 

system("PAUSE"); 

{ 

retıım 0; 

if(dizi[i] = ort) 

} 

{ 

sayac++; 

} 

} 

Console.Write(sayaç + " tane var"); 

} 

else 

{ 

ConsoIe.Write("ortalama tam şayi 


değil"); 

} 

Console.ReadLine(); 

} 

} 

} 

Vb.Net Kodıı: 


Public Class Forml 


Private Sub Buttonl_Click(ByVal seııder As System.Object, ByVal e As System. EventArgs) 

Handles Buttonl.Click 


Dim dizi(10) As Integer 

Di m top As Integer = 0 

Dim ort As Integer = 0 

Dim adet As Integer = 0 

For i As Integer = 0 To 9 


dizi(i)= InputBox(i + 1 & " .sayıyı giriniz: ", "Sayı Girişi", 0) 

ListBoxl.Items.Add(i + 1 & " .Sayı: " 

& dizi(i)) 
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84. 10 eiemaniı bir dizinin elemanlarından hem 4'e hemde 5'e bölünen 
sayılan bulan programın algoritma ve akış diyagramı oluşturunuz. 


Algoritma: 

1. Başla 

2. d[10],i=0 değişkenleri al 

3. Eğer d[i]%20=0 ise Yazdır d[i], 
değilse devam et 

4.i=i+l işlemini yap 

5. Eğer i<10 ise 3’e git, 
değilse devam et 

6. Bitir 

Açıklama: 

Bu soruda dizideki her elemanı 
20’ye böldüğümüzde kalan 0 ise 
bu sayı hem 4‘e hem 5’e 
bölünebilir. Algoritma, buna uyan 
dizi elamanlarını da ekrana 
basacaktır. 


Ekran Çıktısı: 



ı— -—— - 1 4 ve 5' e tam 

LSSfe&gS&LJ bcüünebfcn tay4a» 


1 Sayı 47 60 

2.S*ı 36 
3 Sayı 49 
4.$ag» 5 

5 Say» 5 

6 San 7 

7 Sayı 60 

8 Sayı 47 

9 Sayı 1 

10 Sayı 5 


Akış Diyagramı: 
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#include <conio.h> 
tfinclude <stdio.h> 
int main(int argc, char *argv[]) 

int df I0],a[10],ij=0; 

I for(i=0;i<IO;i++) 

{ 

scanf("%d",&d[i]); 
i f?d[i ]%20=0) 
aüHti]; 
j++; 

} 

system(''PAUSE"); 
retum 0; 

} 


Vb.Net Kotlu : 


C#Kodu : 

using System; 
namespace dmg 

{ 

class Program 

{ 

static void Main(string[] args) 

intÇ dizi =newint[l I]; 
int i; 

Random md = nevv Random(); 
for (i = 0; i <= 10; i++) 

{ 

dizi(i) = ((md.Next(99)) + 1); 

Console. WriteLine( "4'e ve 5'e tam 
bölünebilenler"); 

for (i = 0; i <= 10; i++) 

{ 

if (dizi[i] % 20 = 0) 

{ 

Console. WriteLine(dizi[i]); 

} 

Console.ReadLine(); 

} 

} 


| Public Class Forml 

| HandlefButtn B . U aici- CIİCk(ByVal ** S ^ em ° b ^ ^al e As System. Even,Args) 
Dini md As Nevv Random 
Dim dizi(10) As Integer 
For i As Integer = 0 To 9 
dizi(i) = ((md.Next(99)) + 1) 

ListBox 1 .Items.Add(i + I & ".Sayı & dizi(i)) 

Next 

For j As Integer = 0 To 9 

If ((dizi(j) Mod 5) = 0) And ((dizi(j) Mod 4) = 0) Then 
LıstBox2. Items. Add(dizi{i)) 

End If 
Next 
End Sub 
I End Class 


.lava Kotlu : 


İmport java.util.Scanner; 
importjava.util.Random; 

| public class Soru59{ 

public static void maintString 
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85. Bir yazının polindrom olup olmadığını bulan programın algoritmayı 
ve akış diyagramını oluşturunuz. 


Örnek: kek, kütük 
Algoritma: 

I .Başla 

2. d[20],i=0j=0, kelime 

3. kel ime gir 

4. Eğer d[i]=7n’ ise i — devam et, 
değilse i++ ve 4'e git 

5. Eğer d[j]=d[i] ise devam et, 
değilse 8’e git 

6. İ++J- 

7. Eğer i=j ise yazdır “polindromdur”, 
değilse 5'e git 

8. Yazdır “polindrom değildir” 

9. Bitir 

Açıklama: 

Tersinden ve düzünden okunuşu aynı 
olan yazılara polindrom denir. 

Kelimeyi girdikten sonra girilen 
karakterler, karakter dizisinin 
elamanları olarak yerlerini alır. Dizinin 
kaç elemanlı olduğunu buluruz. Daha 
sonra son dizi sonu işaretine kadar 
elemanları saydırırız veya her giriş için 
sayacımızı 1 arttırırız. Sonra dizinin 
başından ve sonundan gelerek 
elemanları karşılaştırırız. Aynılarsa 
dizinin ortasına geldiğimizde programı 
sonlandırırız. Bunun için de biri i biri j 
olmak üzere iki sayaç tutarız. Bu soru 
mantık olarak bu şekilde işlemektedir. 


Ekran Çıktısı : 



Akış Diyagramı: 



292 




































Algoritma ve Programlama Tamamı Çözümlü Soru Bankası 


C Kodu: 

C# Kodu: 

#include <stdio.h> 

#include <stdlib.h> 

using System; 


namespace dmg 

int main(int argc, char *argv[]) 

{ 

( 

class Program 

intij; 

{ 

char d[20]; 

static void Main(string[j args) 

gets(d); 

{ 

for(i=0;i<20;i++) 

{ 

ifl(d[i]=^') 

int n, ij; 

Console.Write(”N Giriniz = "); 
n = Convert.Tolnt32(Console.ReadLine()); 

{ 

char[] dizi = new char[n + 1 ]; 

i=i-l; 

for (i = 0; i < n; i++) 

break; 

{ 

} 

} 

Console.Write(i + ".Karakteri Giriniz = "); 

dizi[i] = Convert.ToChar(Console.ReadLineO); 

for(j=OJ<=iJ++) 

> 

{ 

ifld[j]! = d[i]) 

{ 

printf("polindronı değildir"); 

n-; 

for (j =0;j <= n; j++) 

{ 

if(dizi[j] != dizi[n]) 

goto dnz; 

! 

} 

i-; 

} 

printfT'polindromdur"); 

Console.Write("polindrom değildir"); 
goto dnz; 

} 

n-; 

dnz: 

} 

system("PAUSE''); 

Console.Write("polindromdur"); 

retum 0; 

dnz: 

} 

Console. ReadLine(); 

} 

} 

} 

Vb.Net Kodu : 


Public Class Form 1 


Private Sub Buttonl Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 

Handles Buttonl.Click 


Dim kelime As String = TextBoxl.Text.Trim() 

Dim dizi(kelime.Length) As String 


Dim diziTers(kelime.Length) As String 

Dim kontrol As Integer = 0 


TextBox2.Text = "" 


For i As Integer = 0 To kelime.Length - 1 

dizi(i) = kelime.Substring(i, 1) 
Next 
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86. Bir dizide dışarıdan girilen bir sayının, dizinin elemanlarından kaç 
tanesinden küçük olduğunu bulan programın algoritma ve akış 
diyagramını oluşturunuz. 

Algoritma: 


1. Başla 

2. d[n],n,i=0,sayi 1 ,sayi2,say=0 

3. n,sayil değerini gir 

4. d[i]=sayil işlemini yap 

5. Eğer i=n-l ise devam et, 
değilse i++ 4'e git 

6. sayi2 değerini gir 

7. Eğer sayi2<d[i] ise say++, 
değilse devam et 

8.i— işlemini yap 

9. Eğer i<0 ise devam et, 
değilse 7’e git 

10. Yazdır say 
11 .Bitir 
Açıklama: 

Bir diziye dışarıdan istenildiği 
kadar sayı girilmektedir. Sonra 
dışarıdan bir sayı girip dizinin her 
elemanı ile karşılaştırıp sayımız 
küçük ise sayacımızı 1 
arttırıyoruz. Kitabımızda daha 
önce buna benzer 2 soru 
yapılmıştır. Zaten önceden de 
belirttiğimiz gibi amacımız sizlere 
bol bol soru çözdürerek algoritma 
konusunda yeteneğinizi 

arttırmaktır. 

Ekran Çıktısı: 



Akış Diyagramı: 
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#define N 20 
#include <stdio.h> 

#include <conio.h> 
int main(int argc, char *argv[]) 
< 

I int i; 
int şayi; 
int say=0; 
int dizi[N]; 

| for (i=0;i<N;i++) 

I 

scanfl["%d".&dizi[i]); 

, } 

scanf("%d",&sayi); 

| tor (i=0;i<N;i++) 

{ 

if(sayi<dizi[i]) 

{ 

say-H-; 

} 

} 

I prim f^"%d",say); 
system("PAUSE''); 
retum 0; 


V'h.Net Kodu : 


C#Kodu : 


using System; 
namespace dmg 
{ 

class Program 

{ 

static void Main(string[] args) 

int i=0; 
int şayi; 
int say=0; 
int n; 

Console.Write("N giriniz = "); 
n = Convert.ToInt32(Console.ReadLine()); 

int[] dizi = new int[n+1 ]; 
for (i = I; i <= n; i++) 

{ 

Console.Write(i+".Sayıyı Giriniz = "); 
dizi [i] = 

Convert.ToInt32(Console.ReadLine()); 

Console. Write( "Karş ı laşt ırı Iacak Sayiyi Giriniz = 

şayi - Convert.ToInt32(Console.ReadLineO); 
foreach (int karsilastir in dizi) 

{ 

if (şayi < karsilastir) 

{ 

say++; 

} 

} 

Console. Write("Dizi elemanlarından " + say + " 
tanesinden küçüktür"); 

Console. ReadLine(); 

} 

} 


| Public Class Forml 

| H and te' B utt oıri °C M ck _C '' ck( By Va 1 se " der As System.Object, ByVal e As System.EventArgs) 

Dim adet As Integer = Clnt(TextBoxl.Text) 

Dim dizi(adet) As Integer 
Dim aranan As Integer = CInt(TextBox2.Text) 

Dim k As Integer = 0 
If adet <= 0 Then 
Exit Sub 
End If 

For i As Integer = 0 To adet - 1 
dizi(i) = InputBox(i + I & Sayıyı Girin: ", "Sayı Grisi" 0) 

LıstBoxI.Items.Add(i + I & Sayı: " & dizi(i)) 

Next 
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87. Bir sayı dizisinde dizi elemanlarının sondan başa gelecek şekilde 
düzenlenmesini sağlayan algoritma ve akış diyagramının 
oluşturunuz. 

Algoritma: Ekran Çıktısı: 


1. Başla 

2. A[N] ,j, i=0 

3. N değerini gir 

4. i<N olduğu sürece 7.adıma 
kadar işlemleri yap 

5. sayı değerini gir 

6. A[i]=sayı, i++ yap 

7j=i 

8. j<0 olduğu sürece lO.adıma 
kadar işlemleri yap 

9. Yazdır A[i], j~ yap 

10. Bitir 

Açıklama: 

Bu soruda diziye dışarıdan 
elemanlarımız girilmektedir. 
Sonra bir temp değişken 
tutulmaktadır. Çünkü burada 
örnek olarak ilk d[0] ile d[n-l] yer 
değiştirecektir. Bunun için dizi 
eleman sayısının yarısına kadar 
sondaki elemanla ile baştaki 
elamanlar değiştirilmektedir. 
Birebir değişim yapılamayacağı 
için temp diye bir takas alanı 
almak zorundayız. Dizinin orta 
elemanı geldiğinde takas işlemi 
sona erer ve diziyi tekrar i=0’dan 
başlamak üzere n-l’e kadar ekrana 
basarız. 



Akış Diyagramı: 
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C Kodu: 

C#Kodu: 

#defıne N 10 

using System; 

#include <conio.h> 

#include <stdio.h> 

namespace dmg 
{ 

int main(int arı>c, char *argv[]) 

class Program 

{ 

{ 

int A[N],i j; 

static void Main(string[] args) 

for(i=0;i<N;i++) 

{ 

{ 

int t, i, n; 

scanf("%d",&A[i]); 

Console.Write("N = "); 

> 

n = Convert.ToInt32(Console.ReadLine()); 

for(j=N-1 j>=0y-) 

int[] dizi = new int[n]; 

{ 

for (i = 0; i < n; i++) 

printf{"%d",A[j]); 

{ 

} 

Console.Write(i + ".Sayıyı Giriniz = ”); 

system("PAUSE"); 

dizi[i] = Convert.Tolnt32(Console.ReadLine{)); 

retum 0; 

} 

} 

for (i =N-1; i >= 0; i-) 

{ 

Console.WriteLine(dizi[i]); 

} 


Console.ReadLineO; 

} 

} 

} 

Vb.Net Kodu: 


Public Class Forml 


Private Sub Buttonl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 

Handles Buttonl.Click 


Dim adet As Integer = CInt(TextBoxl.Text) 

lf adet <= 0 Then 

Exit Sub 

Endlf 


Dim dizi(adet) As Integer 

For i As Integer = 0 To adet - 1 


dizi(i) = InputBox(i + 1 & Sayıyı Giriniz: ”, "Sayı Girişi", 0) 

ListBox 1 .Items. Add(dizi(i)) 
Next 


For j As Integer = adet - 1 To 0 Step -1 

ListBox2. Items. Add(dizi(j)) 


Next 

End Sub 


Eııd Class 


dava Kodu: 


import java.util.Scanner; 
public class Soru62{ 


public static void main(String[] args){ 

Scanner oku=new Scanner(System.in); 


299 










Algoritma ve Programlama Tamamı Çözümlü Soru Bankası 



300 







Algoritma ve Programlama Tamamı Çözümlü Soru Bankası 


88. Girilecek 10 adet sayının ortalamasını bulduran (dizi ile) programın 
algoritmasını ve akış diyagramını oluşturunuz. 


Algoritma: 

1. Başla 

2. d[10],i=l,ort,sayi 

3. şayi değerini gir 

4. d[i]=sayi işlemini yap 

5. Eğer i=9 ise devam et, 
değilse i++ 3'e git 
6.ort=ort+d[i],i- - 

7.Eğer i<0 ise devam et, 

değilse 6'ya git 

8.ort = ort / 10 işlemini yap 

9. Yazdır ort 

10. Bitir 
Açıklama: 

Bu soruya benzer soruları daha önce 
de çözmüştük. Diziye 

elemanlarımızı girip bunun 

ortalamasını bularak ekrana 

basacağız. Sorunun basit olarak 
görülmesine rağmen 

uzmanlaşmanın basit sorularla 
başladığını da burada hatırlatmak 
isteriz. 

Ekran Çıktısı: 






Ortalama: 2 7.1 


Akış Diyagramı: 
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C Kodu: 

#include <stdio.h> 

#include <conio.h> 
int main(int argc, char *argv[]) 
{ 

int d[!0],i; 
float ort=0; 
for(i=0;i<10;i++) 

{ 

scanf("%d",&d[i]); 

ort=ort+d[i]; 

} 

ort = ort / 10; 
printfr%f',ort); 

system("PAUSE"); 

retum 0; 

} 


CflKodu : 


using System; 
namespace dmg 
{ 

class Program 

{ 

static void Main(string[] args) 

{ 

int[] dizi =new int[ 10]; 
int i; 

float ort = 0; 

for (i =0; i < 10; i-H-) 

{ 

Console.Write(i + ".Sayıyı Giriniz = 
dizip] = 

Convert.ToInt32(Console.ReadLine()); 
ort = ort + dizi[i]; 


} 


ort = ort / 10; 

Console.Write( "Ortalama = " + ort); 
Console.ReadLinef); 


Vb.Net Kodu: 


Public Class Forml 

Pnvate Sub Buttonl CIickfByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Buttonl.Click 

Dim dizi(10) As Integer 
Dim top As Integer = 0 
For i As Integer = 0 To 9 

dizi(i) = InputBox(i + 1 & Sayıyı Girin: ", "Sayı Grişi", 0) 

ListBoxl.Items.Add(i + I & Sayı: " & dizi(i)) 
top = top + dizi(i) 

Next 

Labell.Text = "Ortalama: " & top / 10 
End Sub 
End Class 


Java Kodu: 


import java.util.Scanner; 
public class Soru63 { 

public static void main(String[] args){ 
Scanner oku=new Scanner(System.in); 
int i; 

int[] dizi=new int[10]; 
float ort=0; 
for(i=0;i<10;i++) 

{ 
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89. Girilen cümlede, girilen karakterden kaç tane olduğunu bulan 
programın algoritması ve akış diyagramını oluşturunuz. 


Algoritma: 

1 .Başla 

2. d[n],n,i=0,ch,a değişkenleri al 

3. n,a değerlerini gir 

4. d[i]=a işlemini yap 

5. Eğer i=n+l ise devam et, 
değilse i++ 4’e git 

6. ch gir 

7. Eğer d[i]=ch ise sayac++, 
değilse devam et 

8.i— 

9. Eğer i<0 ise yazdır sayaç, 
değilse 7'e git 

10. Bitir 

Açıklama: 

Dizi sorularında devamlı sayı dizisi 
tanımlıyordu. Bu sefer karakter 
dizisi tanımladık. Girilen cümlenin 
içinde sonradan aranacak 

karakterimizi ch ile kıyaslıyoruz. 
Bu sorunun benzerini sayı dizisi 
için yapmıştık. Şimdi de karakter 
dizisi için tekrarlıyoruz. 

Sorumuzun mantığı sayı dizisinin 
mantığı ile aynıdır. 

Ekran Çıktısı: 



Akış Diyagramı: 
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C. Kodu: 

C#Kodu: 

#include <stdio.h> 

#inclııde <conio.h> 

using System; 

int main(int argc. char *argv[]) 

namespace dmg 

{ 

{ 

int i; 

class Program 

int n=50; 

{ 

int sayaç = 0; 

static void Main(string[] args) 

char ch; 

{ 

char d[50]; 
gets(d); 

int i=0; 

printfTKarakteri Giriniz = "); 

int n; 

scanfî"%c",&ch); 

int sayaç = 0; 

for (i = 0; i < n; i++) 

char ch; 

{ 

Console.Write("N Giriniz = "); 

if(d[i]=^-) 

n = Convert.ToInt32(Console.ReadLine()); 

break; 

char[] dizi = new char[n + 1 ]; 

if(d[i] = ch) 

for (i = 0; i < n; i++) 

{ 

{ 

sayac++; 

Console.Write(i + ".Karakteri Giriniz = "); 

} 

dizi[i] = Convert.ToChar(Console.ReadLineO); 

} 

} 

system("PAUSE"); 

Console.Write("Karakteri Giriniz = "); 

retum 0; 

ch = Convert.ToChar(Console.ReadLine()); 

} 

for (i = 0; i < n; i++) 

{ 

if(dizi[i] =ch) 
sayac++; 

} 

Console.WriteLine(sayac + " tane var"); 


Console.ReadLineO: 

} 

} 

} 

Vb.Net kodu : 


Public Class Forml 


Private Sub Buttonl Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 

Handles Buttonl.Click 


Dim cümle As String = TextBoxl.Text 

Dim aHarf As String = TextBox2.Text 

Dim adet As Integer = 0 


For i As Integer = 0 To cümle. Length - 1 

If aHarf = cumle.Substring(i, 1 ).ToString Tlıen 

adet = adet + I 

End If 


Next 

Label3.Text = adet & " tane var.' 


End Sub 

End Class 
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.rava K<xıu : 


import java.util.Scanner; 
public class Soru64 { 

public static void main(StringQ args){ 
Scanner oku=new Scanner(System.in); 
int i,sayac=0; 
char karakter; 

String kelime; 

System.out. print("Cümleyi giriniz="); 
kelime=oku.ııextLine(); 

System.out. print("Karakteri giriniz="); 

karakter=oku.nextLine{).charAt(0); 

for(i=0;i<kelime.length();i++) 

{ 


} 


İRkarakter=kelime.charAt(i)) 

sayac++; 


} 

System.out.println("Karakter sayısı="+sayac); 


> 
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90.10 elemanlı bir sayı dizisinin en büyük ve en küçük elemanlarını ve 
yerini bulan programın algoritma ve akış diyagramını oluşturunuz. 
Algoritma: Ekran Çıktısı: 

1. Başla 

2. enb=0,enk=0,enkyer,enbyer,d[ 10],i= 

0 değişkenleri al 

3 ,enb=d[i],enk=d[i],enkyer= 1 ,enbyer= 

1 işlemi yap 

4. İ++ işlemi yap 

5. Eğer d[i]>enb ise 
enb=d[ i],enbyer=i+1, 
değilse devam et 

6. Eğer d[i]<enk ise 
enk=d[ i], enkyer=i+1, 
değilse devam et 

7. Eğer i=9 ise devam et, 
değilse 4'e git 

8. Yazdır enb,enbyer,enk,enkyer 

9. Bitir 

Açıklama: 

10 elemanlı bir sayı dizisinde en büyük 
ve en küçük değerlerini ve yerini bulan 
bu programıenb ve enk şeklinde iki 
değişken almamız gerektiğini 
unutmamalıyız. Sonra ilk dizinin 
elemanını enb ve enk değişkenine atıp 
diğer dizilerin elemanları ile 
karşılaştırmalıyız. Duruma göre enb ve 
enk değişkenlerinin değerleri 
değiştirilebilir. Daha sonra dizi sonu 
mu diye bakılıp enb ve enk değeri ile 
bunların yeri ekrana basılmalıdır. 



Akış Diyagramı: 
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C Kodu: 

C#Kodu : 

#include <conio.h> 

«include <stdio.h> 

int maiııl int argc, char *argv[]) 

{ 

int enb,enk,enkyer= I ,enbyer= 1 ,d[ 10],i=0; 
scanf("%d",&d[i]); 
enb=d[i]; enk=d[ij; 
for(i=l;i<10;i++) 

{ 

scanfl”%d",&d[i]); 

iRd[i]>enb) 

{ 

enb=d[i]; 

enbyer=i+l; 

} 

using System; 
namespace dmg 
{ 

class Program 
{ 

static void Main(string[] args) 

j { 

int enb, enk, enkyer = 1, enbyer = 1, i = 

0; 

int[] dizi = nevv int[ 10]; 

Console.Write(i + ".Sayıyı Giriniz = "); 
dizi[i] = 

Con vert. Tolnt 3 2(Consol e. Read Li neQ); 
enb = dizi[ij; 
enk = dizi[ij; 

if(d[i]<enk) 

{ 

enk=d[i]; 

enkyer=i+l; 

> 

} 

printf("\n"); 

printf!"%d . eleman en büyük değeri : 

%d",enbyer,enb); 

printf{"\n"); 

printR"%d . eleman en küçük değeri : 
%d",enkyer,enk); 
system("PAUSE"); 
retum 0; 

} 

for (i = 1; i < 10; İ-H-) 

{ 

Console.Write(i + ".Sayıyı Giriniz = 

dizi[i] = 

Convert.ToInt32(Console.ReadLineO); 

if Cdizi[i] > enb) 

{ 

enb = dizi[i]; 
enbyer = i + I; 

} 

if (dizi[i] < enk) 

{ 

enk = dizi[i]; 
enkyer = i + I; 

} 

} 

Console.WriteLine(); 

Console.WriteLine(enbyer + ".eleman en büyük 
değeri = " + enb); 

Console. WriteLine(); 
Console.WriteLine(enkyer + ".eleman 
en küçük değeri = " + enk); 

Console.ReadLineO; 

Vb.Net Kodu : 


Public Class Forml 



Private Sub Buttonl_Click(ByVal sender As System.Object, ByVal e As System.EventAras) 
Handles Button 1 .Click 

Dim enb, enk. dizi(IO), enbi, enki As Integer 
enb = 0 

For i As Integer = 0 To 9 

dizi(i) = InputBox(i + 1 & Sayıyı Giriniz; ", "Sayı Girişi", 0) 

ListBoxI.Items.Add(i + 1 & ". Değer: " & dizi! i)) 

_If i = 0 Then 
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enk = dizi(i) 
eııki = 0 

End If 

If dizi(i) <= enk Then 
enk = dizi(i) 
enki = i + 1 

End If 

If dizi(i) >= enb Then 
enb = dizi(i) 
enbi = i + 1 

End If 

Next 

Labcl 1 .Text = enbi & Sırada En Büyük Değer:" & enb 

Label2.Text = enki & Sırada En Büyük Değer: " & enk 

End Sub 

End Class 


Java Kodu: 

import java.util.Scanner; 
public class Soru65{ 

public static void main(String[] args){ 

Scanner oku=new Scanner(System.in); 
int enb,enk,enbyer=l,enkyer=l,i=0; 
int[] dizi=new int[ 10]; 

System.out. print((i+l)+".sayıyı giriniz="); 
dizi[i]=oku.nextInt(); 

enb=dizi[i]; 

enk=dizi[i]; 

for(i=l;i<10;i++) 

{ 

System.out. print((i+l)+".sayıyı giriniz="); 

dizi[i]=oku.nextInt(); 

if{dizi[i]>enb) 

{ 

enb=dizi[i]; 

enbyer=i+l; 

} 

if{dizi[i]<enk) 

{ 

enk=dizi[i]; 

enkyer=i+l; 

} 

} 

System.out.println(enbyer+".e!eman en büyük değeri="+enb); 
System.out.println(enkyer+".eleman en küçük değeri="+enk); 

} 

} 
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91. Eleman değerleri verilmiş 7 elemanlı bir sayı dizisinde tekrarlanan 
sayıların ilk yazılanı dışında kalanlan kaldırarak başa doğru öteleyen 
programın algoritma ve akış diyagramını oluşturunuz. 


Algoritma: 

1.Başla 

2d[7]= {3,1,4,3,4,7,8},n=7,i J,k 
3.i=0j=l 

4. Eğer d[i]=d[j] ise k=j devam et, 
değilse j-H- 7'e git 

5. k=n-2 olana kadar d[k]=d[k+l] 

6. n~ 

7. Eğer j>(n-l) ise devam et, 
değilse 4’e git 

8. Eğer i=n-l ise devam et, 
değilse i++j=i+l 4’e git 
9.i=0'dan n-1 olana kadar yazdır d[i] 
10.Bitir 

Ekran Çıktısı: 



Açıklama: 

7 elemanlı bir diziyi baştan değerlerini 
vererek tanımladık ve dizinin 0. 
İndisinden itibaren i=0’dan , j=l’den n- 
1 olana kadar sayılarla karşılaştırdık. 
Aynı sayılar çıkarsa dizimizi öne doğru 
iteledik. D[k]=d[k+1] ifadesini bunun 
için kullandık. N eleman sayımız ise ve 
eşit sayılar çıkarsa diziyi ötelediğimiz 
için 0. İndise doğru 1 eksilttik. Son 
elemana geldiğimizde artık 
karşılaştırma işlemini bitirdik. Bir 
döngü ile i=0’dan n-l’e kadar dizinin 
tekrarlı elemanlardan arınmış halini 
ekrana bastık. 


Akış Diyagramı: 
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C Kodu: 

C# Kodu: 

#include <stdio.h> 

using System; 

#include <stdlib.h> 

namespace dmg 
{ 

class Program 

int main(int argc, char *argv[]) 

( 

{ 

int d[7]= {3,1,4,3,4,7,8}; 

static void Main(string[] args) 

int n=7,i=0j=l,k; 

{ 

while((n-l)!=i) 

int n = 7, i = 0, j = 1, k; 

{ 

intQ dizi = ncw int[7] { 3, 1, 4, 3, 4, 7, 8 }; 

while(j < =(n-l)) 

\vhile ((n - 1) != i) 

{ 

vvhile (j <=(n - 1)) 

if(d[i]=dD]) 

{ 

{ 

for(k=j ;k<n-1 ;k++) 

if(dizi[i] — dizi [j ]) 

{ 

{ 

d[k]=d[k+l J; 

for (k = j; k < n - 1; k++) 

} 

{ 

n~; 

X 

dizi[k] =dizi[k + 1]; 

} 

n-; 

I 

else 

j++; 

} 

} 

else 

{ 

j++; 

i++; 

j=i+l; 

> 

} 

} 

for(i=0;i<n;i-H-) 

İ++; 

{ 

j =i + 1; 

printfr%d",d[i]); 

} 

î 

for (i = 0; i < n; i++) 

system("PAUSE"); 

{ 

retum 0; 

Console.WriteLine(dizi[i]); 

} 

} 

Console. Read LineO; 


311 







Algoritma ve Programlama Tamamı Çözümlü Soru Bankası 


Vb.Net Kodu: 

Public Class Forml 

Private Sub Forml_Load(ByVal sender As System.Object. ByVal e As System.EventArgs) 
Handles MyBase.Load 

Dim n, i, j, k As Integer 
n = 7 
i =0 
j = l 

Dim dizi(7) As Integer 

dizi(0) = 3 

dizi(l) = 1 

dizi(2) = 4 

dizi(3) = 3 

dizi(4) = 4 

dizi(S) = 7 

dizi(6) = 8 

For I As Integer = 0 To 6 
ListBoxl.Items.Add(dizi(l)) 

Next 

While(n -1) o i 
Whilej <= (n - 1) 

If dizi(i) = dizi(j) Then 
Fork=jTon- I 
dizi(k) = dizi(k + 1) 

Next 
n =n - 1 
Else 
j=j + l 
Endlf 
End While 
i = i + 1 
j = i+ I 
End VVhile 
For i = 0 To n - 1 
ListBox2.Items.Add(dizi(i)) 

Next 
End Sub 
End Class 


Java Kodıı: 


import java.util.Scanner; 
public class Soru66{ 

public static void main(String[] args){ 
Scanner oku=new Scanner(System.in); 
int n=7,i=0j=l,k; 
int(] dizi= {3,1,4,3.4,7,8}; 
while((n-l)!=i) 

{ 
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92. Klavyeden girilen maksimum 20 karakterli kelimedeki sesli harflerin 
kelimenin toplam karakter sayısına göre yüzde oranını hesaplayan 
programın algoritma ve akış diyagramını oluşturunuz. 


Algoritma : 

1. Başla 

2. d[20],ch,i=0,sesli,yuzdej=0,k=0, 

3. str[8]={‘a7eYıYi7o7ö7u7ü’} 

4. ch değerini gir 

5. d[i]=ch 

ö.Eğer d[i]!=’\0'(dizi sonu) ise i++ 3'e 
git.değilse devam et 

7. j=i olana kadar 9.adıma kadar olan 
işlemleri yap 

8. k=7 olana kadar 9.adıma kadar olan 
işlemleri yap 

9. Eğer d[j]=str[k] ise sesli++ 6'ya git, 
değilse 7'e git 

10. yuzde=(sesli* 100)/i 

11 .Yazdır “Yüzde” yüzde ” seslidir” 

12.Bitir 
Açıklama : 

Bu soruda maksimum 20 kelimelik bir 
kelime giriyoruz. Her harfi önceden 
değerlerini sesli harflerle dolu str 
değişkeninin her biri ile 
karşılaştırıyoruz. Karşılaştırma sonucu 
harf sesli ise sesli değişkenimizi yani 
sayacımızı 1 arttırıyoruz. Dizi sonuna 
geldiğimizde yuzde=(sesli*100)/i 
(el.say.) formülüne göre sesli harflerin 
yüzdesini hesaplayıp ekrana basıyoruz. 


Ekran Çıktısı: 


Cümle: wwt demeğe net 
Yüzde 29 Setkdt. 


T S £ 


Hetgto | 


Akış Diyagramı: 
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C Kodu: 

#include <stdio.h> 

#include <stdlib.h> 

#include <string.h> 

int maiıı(int argc, char *argv[]) 

{ 

char 

d[20],str[8]-{'a , ,'e','i',’o','ö','ı',’u','ü'}; 
int sesli=0j,k; 
float yıızde; 
gets(d); 

for(j=OJ<strlen(d)J++) 

{ 

for(k=0;k<8;k++) 

{ 

if(d[i]=str[kD 

sesli-*—*-; 

} 

> 

yuzde=(sesli* 100)/strlen(d); 
printfl["%f'si seslidir",yuzde); 
system(" PAUS E' 1 ); 
retum 0; 

} 


C# Kodu: 

using System; 
namespace dmg 
{ 

class Program 

< 

static void Main(string[] args) 

( 

int i = 0, yüzde, sesli = 0, j = 0, k = 0, n; 
char[] dizi = nevv char[20]; 
char[] str = new char[8] {'a', 'e', 'i', ’o', ’ö'. T, ’u’, ’ü’}; 
Console.Write("Harf Sayısı = "); 
n = Convert.Tolnt32(Console.ReadLine()); 
for (i = 0; i < n; i++) 

{ 

Console.Write(i + ".Harf = "); 
dizi [i] = 

Convert.ToCharfConsole.ReadLineO); 

} 

for(j =0;j <=i;j++) 

{ 

for (k = 0; k < 8; k++) 

{ 

if(dizi[j] = str[k]) 

{ 

sesli++; 

} 

} 

} 

yüzde = (sesli * 100) / i; 

Console.Write("YQzde " + yüzde + " seslidir"); 
Console. ReadLineO; 

} 

} 

> 


Vb.Net Kodu : 

Public Class Form 1 

Private Sub Buttonl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Buttonl.Click 

Dim cümle As String = TextBoxl.Text.Trim().ToLower() 

Dim len As Integer = TextBoxl .Text.Trim().Length 
Dim dizi(len) As String 
Dim sesli As Integer = 0 
For i As Integer = 0 To len -1 
dizi(i) = cumle.Substring(i, I) 

If dizi(i) = "a" Or dizi(i) = "e" Or dizi(i) = "ı" Or dizi(i) = "i" Or dizi(i) = "o" Or dizi(i) = 
"ö” Or dizi(i) = "u" Or dizi(i) = "İl" Then 
sesli = sesli + 1 


End If 
Next 

Dim sonuç As Integer = (sesli * 100) / len Label2.Text = "Yüzde " & sonuç & " Seslidir." 
End Sub 
End Class 
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Java Kodu: 


i mport java. ut i I. Scanner; 
public class Soru67 { 

public static void main(String[] args){ 

Scanner oku=new Scanner(Systcm.in); 
int i=0,sesli=0j=0,k=0,n; 
float yüzde; 

char[] str= {’a','e’i'o’,'öV,’u'ü’}; 

String cümle; 

System.out.print("Cümleyi giriniz="); 
cumle=oku.nextLine(); 
for(i=0;i<cumle. Iength();i++) 

{ 

for(j=0J<8j++) 

{ 

if{cumle.charAt(i)=str[j]) 


sesli++; 


} 


} 

yuzde=(sesli* 100)/cumle.Iength(); 
System.outprintlnC’Cümlenin Yi)zde="+yuzde+" seslidir"); 
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93. İki boyutlu olarak oluşturulan matrise matris[i,j] dışarıdan değer 
girilen programın algoritma ve akış diyagramı oluşturunuz. 
Algoritma: Ekran Çıktısı: 


1.Başla 

2.i=0j=0,d[2][3],sayi değişkenleri 
al 

3. Eğer i<2 ise devam et, 
değilse 9'a git 

4. Eğer j<3 ise devam et, 
değilse 8'e git 

5. say i gir 

6. d[i][j]=sayi 

7. j++,4'e git 

8. j=0,i++,3'e git 

9. Bitir 



Akış Diyagramı: 


Açıklama: 

Çok boyutlu dizilerde matris 
sorulan önemlidir. Burada aslında 
dikkati çekmesi gereken iç içe for 
döngülerini kullanmaktır. Yani i 
döngüsü 1 kere döndüğünde içteki j 
döngüsü kendi kadar dönecektir. 
Onun için bu örneği vermeyi uygun 
bulduk. İç içe döngüleri kullanmak 
önemlidir. Burda 2 satır 3 sütunluk 
bir matrise kullanıcının değer 
girişini göstereceğiz. 
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C Kodu: 

#include <stdio.h> 

#include <stdlib.h> 

int main(int argc, char *argv[]) 

{ 

int i; 
int j; 

int dizi[2][3]; 
for (i = 0; i < 2; i++) 

{ 

for (j = 0; j < 3; j++) 

{ 

pri nt H "d[%d][%d]=", i j); 
scanff"%d",& 

dizi[i]ÜJ); 

> 

> 

system("PAUSE"); 
retum 0; 

} 

C# Kodu: 

using System; 
namespace dmg 
{ 

class Program 
{ 

static void Main(string[] args) 

{ 

int i; 
int j; 

int[,] dizi = new int[2,3]; 
for (i = 0; i < 2; i++) 

{ 

for(j =0;j <3;j++) 

{ 

Console.Write("[" + i + "]" + "[" + j + "]" + " Giriniz = 

"); 

dizi[ij] = Convert.Tolnt32(Console.ReadLine()); 

} 

} 

Console.ReadLineO; 

} 

} 

1 


Vb.Nct Kodu: 

Public Class Forml 

Private Sub Buttonl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Buttonl.Click 

Dim dizi(2, 3) As Integer 

For i As Integer = 0 To I 

For j As Integer = 0 To 2 

dizi(i, j) = InputBox("[" & i & "]" & "[" & j & "]" & " Giriniz = ", "Sayı Girişi", 0) 
ListBoxl.ltems.Add("[" & i & "]" & "[" & j & "]" & " :" & dizi(i, j)) 

Next 

Next 

End Sub 

End Class 



Java Kodu: 

import java.util.Scanner; 
public class Soru68{ 

public static void main(String[] args){ 

Scanner oku=new Scanner(System.in); 
int i j; 

int[)[] dizi=new int[2][3]; 
for(i=0;i<2;i++) 

{ 

for0=0y<3û++) 

{ 

System.out.print("["+i+"]"+"["+j+"]"+"Giriniz="); 

dizi[i][j]=oku.nextlnt(); 

} 

} 

} 

J - 


318 













Algoritma ve Programlama Tamamı Çözümlü Soru Bankası 


94. [2x2| tipindeki bir kare matrisin transpozesini veren algoritma ve 
akış diyagramını oluşturunuz. 


Algoritma : 

1. Başla 

2. dizi [2][2], i=0 , j=0 , 
tpoze[2][2] değişkenleri al 
3.i<2 olduğu sürece 8. adıma 
kadar yap 

4. j<2 olduğu sürece 7. adıma 
kadar yap 

5. şayi gir 

6. dizi[i][j]=sayi, j++, 4’e git 

7. j=0 ,i++ ve 3'e git 
8.i=0, j=0 işlemini yap 
9.i<2 olduğu sürece 13. adıma 
kadar yap 

10.j<2 olduğu sürece 12.adıma 
kadar yap 

11 .tpoze [i]Lj]=dizi[j][i] ve yazdır 
tpoze[i][j] ve j++ 10’a git 

12. j=0 ,i++ ve 3'e git 

13. Bitir 

Açıklama: 

Transpoze sorusu da çok 
boyutlu dizilere örnek olan 
matrislerde bir kavramdır. 

Matrisin satır ve sütunlarını 
değiştirerek elde edilen matrise o 
matrisin transpozesi denilir ve 
T[A] ile gösterilir. Biz de bu 
sorumuzda 2X2 tipindeki matrisi, 
elemanları ile doldurduktan sonra 
bir döngü ile satır ve sütunların 
yerlerini değiştireceğiz. 


Ekran Çıktısı: 



Akış Diyagramı: 



319 


















































Algoritma ve Programlama Tamamı Çözümlü Soru Bankası 




C Kodu: 

#include <stdio.h> 

#include <conio.h> 
main() 

{ 

int dizi [2][2],ij,tpoze[2][2]; 
for(i=0;i<2;i++) 

{ 

for(j=0y<2;i++) 

scanR"%d",&dizi[i][j]); 

> 

for(i=0;i<2;i++) 

{ 

for(j=0j<2;i++) 

{ 

tpoze[i][j]=dizi[j][i]; 

print<t"%d",tpoze[i][j]); 

} 

) 

getch(); 

} 

i 

1 C U Kodu: 

using System; 
namespace dmg 
{ 

class Program 
; { 

static void Main(string[] args) 

{ 

int i =0; intj = 0; 
int[,] dizi = nevv int[2, 2]; 
intj.j tpoze = nevv int[2, 2]; 
for (i = 0; i < 2; i++) 

{ 

for (j = 0;j <2; j++) 

{ 

Console. Write("[" + i + "]" + "[" + j + ”]" + " Giriniz = "); 
dizi[i, j] = Convert.ToInt32(Console.ReadLine()); 

} 

} 

i = 0; j = 0; 

for (i = 0; i < 2; i-H-) 

{ 

for(j=0;j<2;j++) 

{ 

tpozefi, j] = dizi[j, i]; 

Console. WriteLine(tpoze[i, j]); 

} 

> 

Console.ReadLineO; 

> 

} 

} 



Vb.ıNet Kodu: 

Public Class Forml 

Private Sub Buttonl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Buttonl.Click 

Dim dizi(2 p 2), tpoze(2, 2) As Integer 

For i As Integer = 0 To 1 

For j As Integer = 0 To 1 

dizi(i, j) = InputBox("[" & i & "] [" & j & "] : ", "Sayı Grişi", 0) 

ListBoxl.Items.Add(T & i & "] [" &j & "]: " & dizi(i, j)) 

Next 

Next 

For k As Integer = 0 To 1 

For 1 As Integer = 0 To I 
tpoze(k, 1) = dizi(l, k) 

ListBox2.Items.Add("[" & k &"]["& 1 & "]: " & tpoze(k, 1)) 

Next 

Next 

End Sub 

End Class 
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■tava Kodu: 

import java.util.Scanner; 
public class Soru69{ 

public static void main(String[] args){ 
Scanner oku=new Scanner(System.in); 
intij; 

int[][] dizi=ncw int[2][2J; 
int[j[] tpoze=new int[2][2]; 
for(i=0;i<2;i-H-) 

{ 

for(j=0y<2y-H-) 


System.out.print("["+i+"] , '+"["+j+'’]"+"Giriniz="); 
dizi[i][j]=oku.nextInt(); 

> 

} 

for(i=0;i<2;i-H-) 

{ 

for(j=0y<2y-H-) 

{ 

tpoze[i][j]=dizi[j][i]; 

System.out.println(tpoze[i][j]); 

> 

} 

} 

} 
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95. İki boyutlu bir diziyi, tek boyutluya çeviren programın algoritma ve 
akış diyagramını oluşturunuz. 


Algoritma: 

1. Başla 

2. d[Satir][sutun], a[N], satir . 
şutun , k=0 , i=0 , j=0 
değişkenleri al 

3. satir değerini gir , şutun 
değerini gir 

4. N= satir*sutun işlemini yap 

5. i<satir olduğu sürece 10. 
adıma kadar yap 

6. j<sutun olduğu sürece 9. 
adıma kadar yap 

7. a[k]=d[i][j] , k++ 

8. j++ 6’ya git 

9. j=0, i++ , 5’e git 

10. Bitir 
Açıklama: 

İki boyutlu bir diziyi, tek 
boyutlu hale getirmek 
gerekmektedir. Bunun için 
d[satır][sütun] olduğundan tek 
boyutlu dizinin eleman sayısı 
N=satır*sütun olmalıdır. İ vej 
iki boyutlu dizi için indis 
değerleri, k ise tek boyutlu dizi 
için indis değeridir. Iç içe 
döngü kullanarak ve iki boyutlu 
dizinin [0,0] indisli 

elemanından başlayarak dizi 
sonuna kadar dizi elemanlarını 
d[k] dizisine k=0’dan olmak 
kaidesi ile atıyoruz. 

Formülümüz d[k]=a[i][j]’dir. 


Ekran Çıktısı: 




1__1 

2BoyuluDıa 

1 Boyutlu Dci 

|0|I0)15 

V Eleman 15 

ıoı m m 

2 Eleman 64 

|0||2|85 

3 Eleman 85 

10113)954 

4 Eleman 954 

10] (4) 785 

5 Eleman 795 

M] 10)1235 

6 Eleman 1235 

mm 654 

7 Eleman 654 

(11(2) 85 

8 Eleman 85 

[1113)15 

9 Eleman 15 

[1]!«)23 

10 Eleman 23 


Akış Diyagramı: 
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C Kodu: 

#defıne satir 2 

#defıne şutun 2 

#defıne n satir*sutun 
#include <conio.h> 

#include <stdio.h> 
im main(int argc, char *argv[]) 

{ 

int i; 
intj; 
int k=0; 
int a[n]; 

int d[satir][sutun]; 
for (i = 0; i < satir; i++) 

{ 

for (j = 0; j < şutun; j++) 

{ 

scanf("%d",&d[i][j]); 

} 

} 

for (i = 0; i < satir; i++) 

{ 

for (j = 0; j < şutun; j++) 

{ 

a[k] = d[i][j]; 
k++; 

C# Kodu: 

using System; 
namespace dmg 

class Program 
{ 

static void Main(string[] args) 

{ 

int i; 
intj; 
int k = 0; 
int satir; 
int şutun; 
int n; 

Conso!e.Write("Satır Gir = "); 
satir = Convert.ToInt32(Console.ReadLineO); 
Console.Write("Sutun Gir = "); 
şutun = Convert.ToInt32(Console.ReadLine()); 
int[,] dizi = new int[satir,sutun]; 
for (i = 0; i < satir; i++) 

{ 

for (j = 0; j < şutun; j++) 

{ 

Console.VVritefT + i + "]" + "[" + j + "]" + ” Giriniz = ”); 
dizi[i,j] = Convert.ToInt32(Console.ReadLine()); 

> 

> 

} 

system("PAUSE"); 
retum 0; 

î 

} 

n = satir * şutun; 
int[] a = new int[n]; 
for (i = 0; i < satir; i++) 

{ 

for (j = 0; j < şutun; j++) 

{ 

a[k] = dizi[i,j]; 

k-H-; 

} 

} 

Console. Readl.ine(); 

} 

} } 

Vb.Net Kodu: 



Public Class Forml 

Private Sub Buttonl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Buttonl.Click 

Dim dizi(2, 5), Dizi 1(10) As Integer 
For i As Integer = 0 To 1 _ 
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96. İki kare [3x3] matrisin toplamını yapan programın algoritma ve akış 
diyagramını oluşturunuz. 


Algoritma: 

1. Başla 

2. a[3][3]={0,l,2,3,6,7,8,9,6}, 
b[3][3]={2,5,7,8,3,6,7,9,10}, 
c[3][3],i=0j=0 

3. Eğer i<3 ise devam et.değilse 8'e git 

4. Eğer j<3 ise devam et,değilse 7'e git 

5. c[i]U]=a[i][j]+b[i][j] 

6. j++ 4'e git 

7. j=0,i++ 4'e git 

8. j=0,i=0 3'e git 

9. Eğer i<3 ise devam et,değilse 13'e git 

10. Eğerj<3 ise devam et,değilse 12'e 
g't 

11 .Yazdır c[i][j], j++ 10’a git 

12. İ++ 9'a git 

13. Bitir 


Ekran Çıktısı: 



Akış Diyagramı : 


Açıklama: 

Bu soru çok boyutlu dizilere örnek 
teşkil edecek klasik bir matris 
toplamıdır. Kare matris, satır ve 
sütun değerleri aynı olan matristir. 
Biz burada 3X3 tipinde bir çok 
boyutlu 3 adet dizi tanımladık. A ve 
B dizilerinin değerlerini baştan aldık. 
Bunlar için döngü kullanmak 
gerekmektedir. Hele hele matris 
denilirse iç içe döngü kesinlikle 
olmalıdır. î, j aklımızdan asla 
çıkmamalıdır. C’de de for döngüsü 
sanki bu sorular için çıkarılmıştır. 
Bunun için iki dizinin aynı indisli 
olanlarını toplayıp yeni diziye yani C 
dizisine atıyoruz. Ardından C 
dizisinin tüm elemanlarını ekrana 
basıyoruz. 
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C Kodu: 

CU Kodu: 

#İncilide <stdio.h> 

using System; 

flinclude <conio.h> 

namespace dmg 

int main(int argc, char *argv[]) 

{ 

{ 

class Program 

int i; 

{ 

int j; 

static void Main(string[] args) 

int a[3][3] = { 0, 1, 2,3, 6, 7 ,8, 9, 6 ); 

{ 

int b[3][3] = { 2, 5,7,8, 3,6.7, 9, 10}; 

int i; 

int c[3][3]; 

int j; 

for (i = 0; i < 3; i++) 

int[,]a = { {0, 1.2}, {3,6,7}, {8,9,6 } }; 

{ 

int[,]b= { {2, 5,7 }, {8,3,6}, {7,9. 10} 

for(j =0;j < 3; j++) 

}; 

{ 

c[i]Ü] = a[i]ü] + b[i]ÜJ; 

} 

> 

int[,] c = new int[3,3]; 
for (i = 0; i < 3; i++) 

{ 

for (j = 0; j < 3; j++) 

for (i = 0; i < 3; i++) 

{ 

{ 

c [i» j] =a [i, j] + b[i,j]; 

for (j = 0; j <3; j++) 

) 

{ 

printf("%d",c[i][j]); 

t 

) 

for (i = 0; i < 3; i++) 

{ 

for (j = 0; j <3; j++) 

} 

system("PAUSE"); 

Console.WriteLine(c[i, j]); 

retum 0; 

} 

} 

Console.ReadLineO; 

> 

> 

} 

Vb.Net Kodu: 


Public Class Forml 


Private Sub Forml Load(ByVal sender As System.Object, ByVal e As System. EventArcs) 

Handles MyBase.Load 


Dim dizi(3, 3), dizi 1(3, 3), snc(3, 3) As Integer 

Dini md As New Random 

For i As Integer = 0 To 2 


For j As Integer = 0 To 2 


dİ7.i(i, j) = md.Next(100) 


ListBoxl.Itenıs.Add("[" & i & ''][" & j & "1: " & dizi(i, i)) 

dizil (i, j) = md.Next(IOO) 


ListBox2.Items.Add(''[" & i & "][" & i & " & dizil (i, i)) 

Next 

Next 

For k As Integer = 0 To 2 


For 1 As Integer = 0 To 2 


snc(k, 1) = dizi(k, 1) + dizi 1 (k, 1) 


ListBox3.Items.Add("[" & k & & 1 & " & snc(k, 1» 

Next 


Next 


End Sub 

End Class 
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•lava Kodu: 


import java.util.Scanner; 
public class Soru71 { 

public static void main(String[] args){ 

Scanner oku=new Scanner(System.in); 
intij; 

■nt[][] a={ {0,1,2,},{3,6,7},{8,9,6}}; 
int[]t] b={ {2,5,7(,{8,3,6}, {7,9,10}}; 
int[][] c=new int[3][3]; 
for(i=0;i<3;i++) 

for(j=0y < 3y++) 

{ 

c[i]üH»[i]ÜJ+b[i]ü]; 

} 

} 

for(i=0;i<3;i-H-) 

{ 

for(j=0y<3y++) 

{ 

System.out.println(a[i][j]+"+"+b[i][j]+'' 

} 

} 

} 

} 

="+c[i]Dl); 
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Bölüm IX 

Arama ve Sıralama Algoritmaları Soru ve Çözümleri 
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97. Sıralı arama (sequantial search) algoritması ile girilen bir sayıyı 
dizideki yerini bulan programın algoritma ve akış diyagramını 
oluşturunuz. 

Algoritma: Ekran Çıktısı: 

1. Başla 

2. d[5]={ 11,43,4,7,32 },N=5,i=0,ar 
a 



3. ara gir 

4. Eğer i<=n-l ise devam et, 
değilse yaz“bulunamadı” 7'e git 

5. Eğer d[i]=ara ise yaz “yer:”i 7’e 
git, değilse devam et 
6.i-H-,4'e git 

7.Bitir 

Açıklama: 

Dizinin başından başlayarak 
istenilen elemana kadar sırayla 
arama yapan algoritmadır. Çok 
elemanlı dizilerde sonlardaki 
elemanları aramak zaman alır. 
Tıpkı bir kütüphanede 200.000 
kitap olması ve sizin aradığınız 
kitabın da sonuncu olması gibi bu 
işlem de oldukça çok zaman 
alacaktır. 


Akış Diyagramı: 
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98. N elemanlı bir dizide ikili (binary) arama algoritması ile girilen bir 
sayıyı arayan algoritma ve akış diyagramını oluşturunuz. 
Algoritma: Ekran Çıktısı: 

1.Başla 


2. N=5,alt=0,ust=N,ara,i,d[N]={l,3,5,8 

,10} değişkenlerini al 

3. ara gir(dizi elemanlarından biri 
girilmeli) 

4.i=(alt+ust)/2 
5.Eğer d[i]=ara ise yazdır 
i+l”.eleman” 7'e git, değilse devam et 
ö.Eğer d[i]>ara ise ust=i 4’e git, 
değilse alt=i 4'e git 

7.Bitir 

Açıklama: 

Bu algoritma için önemli olan, dizi 
sıralı değilse sıralama algoritması ile 
sıralayıp sonra arama yapmasıdır. İkili 
arama, sıralı dizilerde yapılır. Mantık 
olarak dizinin ortasındaki (Örnek 1 ile 
63 arsında 32 ortadaki sayıdır) sayıya 
bakılır. Aradığımız sayı, bu sayıdan 
büyükse ortadaki ve sondaki arasına 
bakılıp yeni diziymiş gibi düşünülerek 
sayımız bulana kadar yeniden bu 
dizinin ortasındaki sayıya bakılır. 
Örnekle açıklayalım: 
0-1-2-3-4-5-6-7-8-9 sayılarımız 10 
elemanlı sıralnamış bir dizi. 

Aranan sayı 8 olsun. Ortadaki sayı (10 
/ 2 = 5). 5<8 olduğu için yeni aralığımız 
S-6-7-8-9 Ortadaki sayı 7 
7<8 olduğu için yeri aralığımız. Yine 
aynı işlemi yapıyoruz. 8-9 Ortadaki 
veri 8 (bingo) Verimizi 3 seferde 
bulduk. Ama sıralı arama ile bunu 



Akış Diyagramı: 



aramış olsaydık ancak 8 adımda 
bulabilecektik. 
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C Kodu: 


#include <stdio.h> 

#include <conio.h> 

int alt=0,ust=5,ara,i=0,d[5]={ 1,3.5,8,10}; 

int main(int argc, char *argv[]) 

{ 

clrscr(); 

scanf("%d",&ara); 
if( ara<d[0] || ara>d[4]) 

{ 

printfTbu şayi dizide yok"); 
goto dnz; 

} 

while((ust-alt)!=l) 

i=(alt+ust)/2; 

if(d[i]=ara) 

{ 

printf}"%d ,eleman",i+l); 
break; 

} 

if (d[i]>ara) 
ust=i; 
else 
a!t=i; 

} 

dnz: 

system("PAUSE"); 
retum 0; 

1 


C#Kodu: 


using System; 
namespace dmg 

class Program 

{ 

static void Main(string[] args) 

{ 

int i = 0; 
int n = 5; 
int alt = 0; 
int ust = n; 
int ara; 

int[] dizi = { 1. 3, 5, 8, 10 }; 
Console.Write("Ara = "); 
ara = Convert.ToInt32(Console.ReadLine()); 
dmg: 

i = (alt + ust) / 2; 
if(dizi[i] = ara) 

{ 

ConsoIe.Write((i + 1) + ".eleman"); 

} 

else if(dizi[i] > ara) 

{ 

ust = i; 
goto dmg; 

} 

else 

{ 

alt = i; 
goto dmg; 

i 

Console.ReadLineO; 


} 


Vh.Net Kodu : 


Public Class Forml 

Private Sub Buttonl_Click(ByVal seııder As System.Object, ByVal e As System.EventArgs) 
Handles Buttonl.Click 

Dim i, n, alt, ust, ara As Integer 
i = 0 
n = 5 
alt = 0 

ust = n ____ 
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Dim dizi(n) As Integer 
dizi(O) = 1 
dizi(I) = 3 
dizi(2) = 5 
dizi(3) = 8 
dizi(4)= 10 

ara = CInt(TextBoxl.Text.Trim) 

dmg: 

i = (alt + ust) / 2 
If dizi(i) = ara Then 

Label2.Text = "Aranan eleman " & (i + I) & sıradadır.' 
Elself dizi(i) > ara Then 
ust = i 
GoTo dmg 
Else 
alt = i 
GoTo dmg 
End If 
End Sub 
End Class 


Java Kodu: 


import java.util.Scanner; 
public class Soru73{ 

public static void main(String[] args){ 

Scanner oku=new Scanner(System.in); 
int i=0,alt=0,ara,n=5; 
int ust=n; 

int[] dizi={l,3,5,8,10}; 
int bayrak—1; 

System.out.print("Ara="); 
ara=oku.nextInt(); 
while(true) 

{ 

i=(alt+ust)/2; 
if(dizi[i]=ara) 

{ 

System.out.print((i+1 )+".eleman"); 
break; 

} 

else if(dizi[i]>ara) 
ust=i; 

else 

alt=i; 


} 


} 
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99. Bubble (kabarcık) sıralama algoritması ile bir dizinin sıralanması 
programının algoritma ve akış diyagramını oluşturunuz. 


Algoritma: 

1. Başla 

2. d[10],i=0,j=0, sayi.tcmp 
değişkenlerini al 

3.i<10 olana kadar 6. adıma kadar 
yap 

4-d[i] =sayi değerini gir 
5.İ++ işlemi yap 
6.i=0 işlemi yap 

7.i<9 olana kadar 13. adıma kadar 
yap 

8. j<9 olana kadar 13. adıma kadar 
yap 

9. Eğer d[j]>d[j+l] ise devam 
et,değilse j++ 8’e git 

10. temp=d[j] işlemini yap 

1 l.d[j]=d[j+l] işlemini yap 
12.d[j+l ]=temp, j++ 8’e git 
13.i=0 


Açıklama: 

Bubble (kabarcık) sıralaması size 
algoritma ve akış diyagramını 
çizdiğimiz ilk sorudur. Bubble 
kullanılmayan, daha çok eğitim amaçlı 
anlatılan bir sıralama algoritmasıdır. 
Bu algoritmanın mantığı ilk iki terimin 
karşılaştırılıp küçük olanın sola büyük 
olanın sağa geçirilmesine dayanır,. 
Algoritma sonra sağdaki ile devam 
eder ve sağdaki sayı da bir sonraki 
elemanla karşılaştırılır. Büyük ve 
küçük olmasına göre sayılar yine 
küçük sola, büyük sağa gelmek 
koşuluyla dizi sonuna kadar devam 
eder. Bu dizi doğru sıralamaya ulaşana 
kadar devam etmelidir. Algoritma 
testinde sayılarla bu sıralama mantığını 
daha iyi kavrayabilirsiniz. 


14.i< 10 olana kadar lö.adıma kadar 
yap 

15.Yazdır d[i] ,i++ 14'e git 
lö.Bitir 


Q (n 2 ) çalışma karmaşıklığıdır. 

Ekran Çıktısı: 
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Akış Diyagramı: 
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C Kodu: 


C# Kodu: 


#include <stdio.h> 

Sinclude <conio.h> 

int i j,d[10],tenıp; 

int main(int argc, char *argv[]) 

I 

for(i=0;i<10;i++) 

{ 

scanf(”%d",&d[i]); 

} 

for(i=0;i<9;i++) 

{ 

for(j=0y<9j++) 

{ 

ifl[d[j]>d[j+l]) 

{ 

temp=d[j]; 

dDHü+U; 

d[j+l]=temp; 


} 

for(i=0;i<10;i-H-) 

{ 

prinlft"%2d",d[i]); 

} 

system("PAUSE”); 
retum 0; 

} 


using System; 
namespace dmg 
{ 

class Program 

{ 

static void Main(string[] args) 

{ 

int i; 
int j=0; 
int temp; 
int şayi; 

int[] dizi = nevv int[ 10]; 
for (i = 0; i < 10; i++) 

{ 

Console.Write(i+".Sayiyi giriniz = "); 

dizi[i]=Convert.ToInt32(Console.ReadLine()); 

} 

for (i = 0; i < 9; i++) 

{ 

for (j = 0; j < 9; j-H-) 

{ 

iRd[j]>d[j+l]) 

{ 

temp=d[j]; 

dD]=dü+U; 

d[j+l]=temp; 

) 

} 

j=0; 

} 

for (i = 0; i < 10; i++) 

{ 

Console.WriteLine(dizi[i]); 

} 

Console.ReadLine(); 

} 

} 

} 


Vb.Net Kodu: 

Public Class Forml 

Private Sub Buttonl _Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Buttonl.Click 

Dim şayi, j As Integer 
Dim dizi(10) As Integer 
For i As Integer = 0 To 9 

şayi = InputBox(i + I & ". Sayıyı Giriniz:", "Sayı Girişi:", 0) 

ListBox 1 .Items. Add(sayi) 
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dizim = sayı 
Next 

Dim temp As Integer 
For i As Integer = 0 To 9 
For j = 0 To 9 
If dizi(i) < dizi(j) Then 
temp = dizi(i) 
dizi(i) = dizi(j) 
dizi(j) = temp 


End If 
Next 
Next 

For i As Integer = 0 To 9 
ListBox2.Items.Add(dizi(i)) 
Next 
End Sub 
End Class 


Java Kotlu: 


im port ja va. ut i I. Scanner; 
public class Soru74{ 

public static void main(String[] args){ 

Scanner oku=new Scanner(System, in); 
int i j.temp.sayi; 
int[] dizi=new int[I0]; 
for(i=0;i<10;i++) 

{ 

System.out.print( i+".sayiyi giriniz="); 
dizi[i]=oku.nextInt(); 

} 

for(i=0;i<9;i++) 

{ 

for(j=0J<9J++) 

{ 

ifl[dizi[j]>dizi[j+l]) 

{ 


temp=dizi[j]; 

dizi[j]=dizi[j+l]; 

dizi[j+l]=temp; 

} 

) 

} 

for(i=0;i<10;i++) 

System.out.println(dizi[i]); 
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100. Selection Şort (Seçme Sıralama) algoritması ile bir dizinin 

sıralanması programının algoritma ve akış diyagramını oluşturunuz. 


Algoritma: 


Açıklama: 


1. Başla 

2. d[6]= {10,1,9,2,8,3} ,i=0j=0,min,te 
mp,n=6,indis 

3.i<n-l olana kadar 14. adıma kadar 
yap 

4. min=dizi[i] 

5. min=i 

6. j=i+1 

7. j<n olana kadar 11 .adıma kadar yap 

8. Eğer d[j]<min ise devam et,değilse 
j++ 7’e git 

9. min=d[j] 

10.indis=j 

1 l.temp=dizi[i] 


Bubble, Sort’a göre daha iyidir 
ama bu algoritmadan daha iyi 
sıralama algoritmaları da vardır. 
Bu sıralama algoritmasının da 
çalışma karmaşıklığı Q(n 2 )’dir. 
Mantık olarak dizinin ilk 
elemanını minumum alır, bütün 
dizinin elemanlarını bu minumum 
ile karşılaştırır, küçük bir değer 
bulursa dizi sonu gelince bulduğu 
en küçük değeri dizinin başına 
atar ve dizinin ikinci elemanı da 
tekrar bu işleme devam eder. Dizi 
sonu gelince dizi sıralanmış olur. 
Her zaman dizinin başına 
minumumu koyarak ve sağa 
doğru öteleyerek sıralama yapar. 
Algoritma testinde bu durum 
açıkça gösterilecektir. 


12. dizi[i]=min 

13. dizi[indis]=temp 
14.i=0 

15.i<n olana kadar 16’yı yap 

16. Yazdır d[i] 

17. Bitir 


Ekran Çıktısı: 
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Akış Diyagramı : 
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C Kodu: 

C# Kodu: 

#include <stdio.h> 

using System; 

#include <conio.h> 

namespace dmg 

int main(int argc, char *argv[]) 

{ 

i 

class Program 

int dizi[6]= {10,1,9,2,8,3}; 

{ 

int n=6; 

static void Main(string[] args) 

int i, j, indis.temp; 

{ 

int min; 

int[] dizi = nevv int[6] { 10, 1,9, 2, 8, 

for (i=0;i<n-l;i++) 

3}; 

{ 

int n = 6; 

min=dizi[i]; 

int i, j, indis, temp; 

indis=i; 

int min; 

forO=i+l:j<nû++) 

for (i = 0; i < n - 1; i++) 

! 

{ 

If (dizi[j]<min) 

min = dizi[i]; 

{ 

indis = i; 

min=dizi[j]; 

for 0 = i + 1; j < n; j++) 

indis=j; 

{ 

} 

if (dizi[j) < min) 

} 

{ 

temp=dizi[ij; 

min = diziyi; 

dizi[i]=min; 

indis =j; 

dizi[indis]=temp; 

} 

} 

} 

printff'siralanmis dizi\n”); 

temp = dizi[ij; 

for(i=0;i<n;i++) 

dizi[i] = min; 

printfl[ 4 '%d”,dizi[i]); 

dizi[indis] = temp; 

printfi["\n”); 

} 

systeın("PAUSE"); 

Console. WriteT.ine("Sıralanmis dizi"); 

retum 0; 

for (i = 0; i < n; i++) 

} 

{ 

Console.WriteLine(dizi[i]); 

î 

Console.ReadLine(); 

} 

} 

Vb.Net Kodu: 


Public Class Forml 


Private Sub Forml Load(ByVal sender As System.Object, ByVal e As System.EventArgs) 

Handles MyBase.Load 


Dim dizi(6) As Integer 

Dim indis, temp, min As Integer 

dizi(0) = 10 

dizi(l) = 1 

dizi(2) = 9 

dizi(3) = 2 

dizi(4) = 8 

dizi(5) = 3 

For i As Integer = 0 To 5 


min = dizi(i) 
indis = i 


^^o^^^nteger = i + 1 To 5 
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